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EDITORIAL 



This rtonth's Magazine 

This issue of ELBUG covers the two months of August and September, so the next 
issue will be that for October. The contents of this issue have a pronounced visual 
flavour to them. Apart from the three games, all of which provide excellent screen 
displays, there are two further programs of a highly graphical nature. 
, Harmonograph , will produce endless patterns after the style of Spirograph, giving 
many hours of fascinating pleasure, while 'Build a House 1 will probably please our 
younger readers in the way in which the colourful picture of a house and garden is 
built up on the screen. Watch out here for the cat. 

Our series on Electron graphics is now drawing to a close, and this month we show 
how to extend the choice of colours available, by producing all manner of striped 
colours and shades to enhance you own graphics displays. 

Now that interfaces for joy-sticks and printers are becoming quite widely 
available, we have included a most useful and practical application in the form of a 
text editor. This allows you to create and edit text for all sorts of purposes and 
even if you don't yet have a printer with your Electron, may still prove of great 
value in communicating with other ELBUG members and sending us letters and articles 
in the ELBUG office. 

THE EXPANDING ELECTRON 

Acorn tell us that they are now sending out over 20,000 Electrons a month and 

that this is rapidly becoming one of the best selling micros in its price range. 

Many other suppliers are also extending the range of add-ons for the Electron, 

evidenced by several of the stands at the recent Micro User Show at Alexandra 

Palace. We shall be looking at all the new developments for the Electron and expect 

to carry reviews of the latest products in the next issue. 

Mike Williams 



OTICE BOARD NOTICE BOARD NOTICE BOARD NOTICE B 



Magazine Cassette 

All the programs in this month's magazine are available on cassette 
together with an additional program by S.Fox which provides a test card on your TV 
or monitor screen to go with our review of monitors in this issue. See the back 
cover for full ordering details. 

MAGAZINE BINDERS 

Several readers have written to us about binders for their copies of ELBUG, and 
are pleased to announce that the details of this have now been agreed. See the 



we 



inside back cover for further information. 



Hint Winners 



This month we have awarded three £5 prizes for the best hints, and the winners 
are D.Robinson, G. Edwards and N.kelly. Any new hints will always be most welcome. 

Flowers of Hell 

This program, published in our last issue, was unfortunately subject to error 
during production which resulted in one line being omitted from the listing. This 
relates to line 1770 and the correct listing at this point should read as follows: 

1760 VDU23, 227, 255, 255, 255, 127,63,3,3,1 

1770 VDU23, 228, 24, 126, 126, 255, 255, 126, 126, 24 
We are sorry for this omission. 
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CODEBREAKER 

By G. Huszcza 



This game makes good use of the range of colours available in mode 2 
to provide an excellent implementation of the game popularly known 
as 'Mastermind', in which you have to break a secret code, based on 
a sequence of colours. 



The program Codebreaker is 
comparatively short and should be typed 
into your Electron and saved on 
cassette before starting to play. In 
the game the computer will secretly set 
up a code of 4 coloured pegs out of a 
total of 6 colours available. You then 
have a maximum of 10 chances to guess 
the correct sequence and win. 

The six colours are numbered from 1 
to 6, and you enter your sequence by 
just pressing the four corresponding 
number keys (those numbered 1 to 6 of 
course) and confirm your guess by 
pressing Return. Until you press Return 
you can delete any or all of the 
colours already selected by using the 
Delete key. As the colours are selected 
they are displayed clearly on the left 
hand side of the screen. 

Once you have completed your latest 
try the computer will tell you how 
close you are by displaying the number 
of 'cows' and 'bulls' you have scored. 
A 'cow' - shown by a white marker or 
peg - indicates the correct colour but 
in the wrong place, and a 'bull' - 
shown by a black peg - indicates the 
right colour and in the right place. 
Clearly the code is guessed correctly 
when you score four 'bulls' (black 
markers) . 

When you are playing, remember that 
colours may be repeated, both in the 
secret code and in your guess. It will 
also pay you to use your early guesses 
to try and gather useful information, 
rather than guessing the correct code 
outright. 

This is a fascinating and demanding 
game which will keep you entertained 
for hours, particularly with the 
colourful version provided by this 
program. 



this program are as follows: 



title 


Displays main title page. 




init 


Initialises variables, user 
defined characters and 
sound envelopes. 




drawgrid 


Draws the outline of the 
game display. 




startgame 


Randomly selects the 
secret code. 




choose- 


Deals with the selection 




colours 


of colours by the player. 




check- 


Checks the latest guess. 




colours 






gameend 


Displays the score etc 
at the end of a game. 





The two procedures, PROCchoosecolours 

and PROCcheckcolours , also call some 
further short procedures whose 

functions should be obvious from their 
names. They deal with the display and 
removal of coloured pegs as guessed by 
the player, and the display of the 

'cows' and 'bulls'. 



. ■.■.".'.'.'.'.'.:.'.".'."."."."."■"-'.:-.;■"•"■•:•"•-"■:■:■>"*--:■--:-:■:-:■:■:■:-•»:■:■ :•:•:•"• 
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PROGRAM NOTES 
^■The^princii^l 



procedu 



res • used 



in 



10 REM PROGRAM CODEBREAK 

20 REM VERSION E0.2 

30 REM AUTHOR G. HUSZCZA 

40 REN ELBUG AUG/SEP. 84 

50 REM PROGRAM SUBJECT TO COPYRIOIT 

60 : 
100 ON ERROR GOTO1970 
110 DIM YOURPEG%(4),PEG%(4),TEMP%(4) 

1 20 M0DE1 

130 PROCtitle 

140 REPEAT 

150 M0DE2 

160 VDU23,1,0;0;0;0; 

170 VDU24,48;22;576;1001; 

180 PROCinit 

190 PROCdrawgrid:PRCCstartgame 

200 REPEAT 

210 PROCchoosecolours 

220 PROCcheckcolours 

230 UNTIL TRYS%=10 OR FOUND=TRUE 

240 PROCgameend 

250 UNTILNEWGAME=FALSE 

260 VDU23,l,l;0;0;0; 

270 M0DE6 * 
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280 END 
290 : 

1000 DEFPROCtitle 

1010 VDU19,0,4,0,0,0:PRINTTAB(15,2) ;"C 
OLOURS":PRINTTAB(18,4);"By";TAB(14,6);" 
G.Huszcza" 

1020 PRINTTAB (4, 10), -"KEYS ARE AS FOLLO 
WS :-";TAB(6,14);"l-6 FOR COLOURS"; TAB ( 
6,16);"DELETE TO RUB OUT";TAB(6, 18) ;"RE 
TURN TO FINISH TURN" 

1030 PRINT "TAB (4) "Black pegs signify 
a correct colour in the correct hole, 
and a white peg signifies a correct c 
olour in the wrong hole." 

1040 PRINTTAB (13, 30) ;"PRESS ANY KEY":A 
%=GET 

1050 ENDPROC 

1060 : 

1070 DEFPROCinit 

1080 TRYS%=0:FOUND=FALSE:NEWGAME=TRUE: 
PEGX%=1 92: PEGY%=87:MARKERX%=48 :MARKERY% 
=75:BLACKMARKS%=0:THREE=FALSE 

1090 VDU23, 255, 60, 126,255,255,255,255, 
1 26, 60: VDU23, 254, 0,0, 24, 60, 60, 24, 0,0 

1100 ENVELOPE2,2,6,0,0,255,0,0,126,0,0 
,-126,126,126 

1110 ENDPROC 

1120 : 

1130 DEFPROCdrawg rid . 

1140 OX)L0,132:CLG:GCOL0,7 

1150 MOVE48,22:DRAW48,1001 :DRAW576,100 
1 : DRAW576 , 22 : DRAW4 8 , 22 

1160 FORF%=120TO904STEP98:MOVE48,F%:DR 
AW576,F%:NEXT 

1170 MOVE160,22:DRAW160,1001 

1 1 80 GCOL0 , : VDU5 : FORF%=87T0969STEP98 : 
FORP%=192TO480STEP96:MOVEP%,F%:VDU255:N 
EXT, 

1 1 90 VDU4 :COLOUR3: PRINTTAB (10,1) "COLOU 
RS" 

1200 ENDPROC 
1210 : 
1220 
1230 
1240 
1240 
1250 
1260 



DEFPROCstartgame 

F0RF%=1T04 

PEG%(F%)=RND(7):IFPEG%{F%)=4 GOTO 



NEXT 

COLOUR7 :FORF%=2TOl 2STEP2 : color %=F 
%/2:IFcolor%>=4 THEN color%=color%+l 

1270 COLOURcolor%:PRINTTAB(10,ll+F%);C 
HR$ (255) :COLOUR7: PRINTTAB (1 2, 1 1 +F%) ;F%/ 
2: NEXT 

1280 COLOUR1: PRINTTAB (10, 3); "PICK THE" 
;TAB{10,4) ; "COLOURS"; TAB (10,5) ;"YOU WAN 

T'^TABOO^J^'BY'^TABf^, 7) CENTERING"; 
TAB(10,8) ;"THE NO'S" 

1290 VDU5 

1300 ENDPROC 

1310 : 

1 320 DEFPROCchoosecolours 




1330 F%=1: REPEAT 

1340 REPEAT 

1350 *FX15 

1360 A%=GET 

1370 UNTILA%>48 AND A%<55 OR A%=127 OR 

A%=13 

1380 SOUND!, -15, 80, 5 

1390 IF A%<>127 AND A%<>13 AND F%<5 TH 
EN YOURPEG%(F%)=A%-48:IF YOURPEG%(F%)>= 
4 THEN Y0URPEG%(F%)=Y0URPEG%(F%)+1 

1400 IF A%<>127 AND A%<>13 AND F%<5 TH 
EN YOURCOLOUR%=YOURPEG%(F%) :PRCCplacepe 
g (YOURCOLOURI , PEGX% , PEGY% ) : PEGX%=PEGX%+ 
96 

1410 IF A%=127 AND PEGX%<>192 PROCremo 
ve:F%=F%-l 

1420 IF A%>48 AND A%<55 AND F%<>5 THEN 

F%=F%+1 

1430 IF A%=13 AND F%=5 THEN F%=6 
UNTIL F%=6 

PEGY%=PEGY%+98 : PEGX%=1 92 
TRYS%=TRYS%+1 
ENDPROC 



1440 
1450 
1460 
1470 
1480 
1490 
1500 



DEFPRCCremove 

PEGX%=PEGX%-96 : GCOL0 , : MOVE PEGX% 



,PEGY%:VDU255 



1510 
1520 
1530 
1540 

1550 
1560 
1570 
1580 
1590 



ENDPRCC 

9 

DEFPRCCplacepeg (COL%,X%,Y%) 
GCOL0 , COL% : MOVEX% , Y% : VDU255 

ENDPRCC 



DEFPRCCcheckcolours 
F0RP%=1T04:TEMP%(P%)=PEG%(P%) :NEXT 
F0RF%=1T04: IFTEMP% (F%)=YOURPEG% (F 
%) THEN PROQtiarker(0):YOURPEG%(F%)=8:TE 
MP%(F%)=8:BLACKMARKS%=BLACKMARKS%+1 
1600 NEXT 

1610 FOR PEGS%=1T04:FINISHED=FALSE:F%= 
1 : REPEAT 
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1620 IF YOURPEG%(F%)=TEMP%(PEGS%) AND 
Y0URPEG%(F%)<>8 AND TEMP% (PEGS%) <>8 THE 
N PRCCmarker (7) :Y0URPEG%(F%)=8:FINISHED 
=TRUE 

1630 F%=F%+1 

1640 UNTIL FINISHED=TRUE OR F%>4 

1650 NEXT 

1660 IF THREE=TRUE THEN MARKER Y%=MARKE 
RY%+66:THREE=FALSE ELSE MARKERY% BARKER 
Y%+98 

1670 MARKERX%=48 

1680 IF BLACKMARKS%=4 THEN FOUND=TRUE 
ELSE BLACKMARKS%=0 

1690 ENDPROC 

1700 : 

1710 DEFPRCQnarker(MARKCOLOUR%) 

1720 QCOL0,MARKCOLOUR%:MOVEMARKERX%,MA 
RKERY%:VDU254 

1730 MARKERX%=MARKERX%+48 

1740 IF MARKERX%>96 THEN MARKERX%=48: I 
F (MARKERY%-75)MOD 98=0 THEN MARKERY%=M 
ARKERY%+32:THREE=TRUE 

1750 SOUNDl,-15,45,4 
ENDPRCC 



1760 
1770 
1780 
1790 



"GAME 



DEFPROCgameend 
VDU4:COLOUR2:PRINTTAB(10,3) 
OVER!" 

1800 FORF%=4TO24:PRINTTAB(10,F%) ;SFC(1 
0):NEXT 



1810 COLOUR7:PRINTTAB 
;TAB(10,8);"HAD:-" 



10,7); "COMPUTER" 



1820 FORF%=lT04:COLOURPEG%(F%) :PRINTTA 
B(l 0+ (F%*2) , 1 0) ;CHR$ (255) :NEXT 

1830 COLOUR7:PRINTTAB(10,18);"PRESS AN 
Y";TAB(13,19);"KEY" 

1840 SOUND1,2,4,50:REM FANFARE 

1850 A%=GET:CLS:COLOUR3 

1860 PRINTTAB(4,l);"PERFORMANCE":IF FO 
UND=TRUE THEN PRINTTAB(0,4) ;"YOU FOUND 
THE RIGHT" " "ANSWER IN ";TRYS%;" TURN"; 
:IF TRYS%<>1 THEN PRINT"S" 

1870 COLOUR5:PRINTTAB(0,10);:IF TRYS%> 
=1 AND TRYS%<=3 THEN PRINT"YOU WERE LUC 
KY" 

1880 IF TRYS%>3 AND TRYS%<=6 PRINT"YOU 

DID WELL" 

1890 IF TRYS%>6 AND TRYS%<=10 AND FOUN 
D=TRUE PRINT" I'LL BEAT YOU NEXT" 1 *" 
TIME" 

1900 IF FOUND=FALSE THEN PR I NT" YOU LOS 
T! ! !" 

1910 COLOUR3:PRINTTAB(0,16);"ANOTHER G 
AME (Y/N)?" 

1920 REPEAT:ANS%=GET:UNTILANS%=78 OR A 
NS%=89 



1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 



IF ANS%=78 

CLS 

ENDPRCC 



THEN NEWGAME=FALSE 



ON ERROR OFF 
MODE6:IF ERR=17 END 
REPORT: PRINT" at line ";ERL 

END 



HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 



FUNCTION KEY LISTING OF ENVELOPES - T.J.L.Young 

This will set a function key to display the parameters of any desired envelope. 

These are listed in the same order as in the ENVELOPE instruction, but the envelope 

number should supplied in response to the prompt: 

*K. 0MO. 6 :INP. "Number of envelope" ;N%:<?%=0: P. "Envelope ";N%;:F.t%=0 TO 12:P.",";: 
E%=?(&8C0+(N%-l)*16+t%):IF(t%>0 AND t%<4) OR (t%>6 AND t%<ll) THEN IF E%>127 E^ 
E%-1:T%=E%E0R&FF:P."-";:P.T%;:N.:P. :@%=10:EL.T%=E%:P.T%; :N. :P. :@%=10|M 



Wi*.vav.i 
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LISTO ABBREVIATION 

The User Guide lists keywords and their abbreviated forms between pages 134 and 
194, except for the LISTO command for which it says there is none. However, it 
documents LIST as being shortened to L. , so the conclusion that shortening LISTO to 
L.O would do the trick, is quite correct. For example L.Ol followed by L. (or LIST) 
will cause a program to be listed with a space inserted between the line number and 
the program text. (Remember to use a capital '0* not zero 
here) . (See also the June issue of ELBUG) . 



■XvSx-v:':^'^;:-:;-:^ 
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POSITION OF SYSTEM VARIABLES IN 



MEMORY - P.S.Ganney 

all 



are 



integer, each has four 



The system variables @% and A% to 
locations &400 to &468. As each is an 

such that the value of A% is 1404 etc. So it is easy to 
variables from within machine code programs without passing 
CALL instruction (see pages 138 and 216 of the User Guide). 



directly accessible at memory 



bytes designated to it 

access these system 

parameters using the 



t 
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HARMONOGRAPH 

By David C. Nichols 



Your Electron is capable of some really impressive displays- The 
program listed here from David C. Nichols is a good example of 
graphics combined with some mathematical theory which produces some 
fascinating patterns. 



The original Harmonograph is a 
simple mechanical device which can draw 
a wide variety of complex and intricate 
patterns. It consists of two rigid 
pendula that are free to swing in any 
direction, with the pivot point some 
way down from the top. A table is 
attached to the top of one pendulum and 
a lever with a pen is attached to the 
top of the other. A drawing is made by 
fixing a piece of paper to the table, 
resting the pen on the paper, and 
setting the two pendula swinging. Their 
independent motion produces a relative 
'wobble* of the pen which makes the 
patterns. By varying the heights of the 

pendulum bobs, and the amount and 
of the pendulum swings, 
types of pattern can be 



direction 
different 

produced. 



The program listed here is called 
'Harmony', and simulates the operation 
of a Harmonograph, although the program 
ignores friction to keep the coding 
simple. In real life the patterns would 
be determined by the operator setting 
the pendula swinging at random. The 
program simulates this by setting each 
pendulum to an initially random 
position and each is endowed with a 
random degree of momentum. To increase 
the speed of execution, the program 
uses a 'lookup table' for the 
complicated trigonometric calculations. 
This is done at the start of a program, 
and values are stored in an array for 
later reference. It is the calculation 
of these values that causes the pause 
at the start of the program. This 
technique was described in Part 4 of 
our series on Electron graphics in 
ELBUG issue 4. 

USING THE PROGRAM 



To use the program, simply type it 
into your Electron, save a copy on 
tape, and then run it. When it is in 



operation, pressing the Escape key will 



pause the program 
now pressed, it 
where it was, but 
then it 
pattern. 



again, 
another 



If the space bar is 
will carry on from 
if Escape is pressed 
will start drawing 
Note that you need to 
press Break to leave the program after 
it has started drawing the patterns on 
the screen, as there is no exit 
facility built in. You may like to add 
one yourself, though (this could be 
done by testing if the Shift key is 
pressed at the same time that you press 
Escape with an INKEY -1, and performing 
an END if this test proved true). 

TECHNICAL DETAILS 

The program simulates the 

Harmonograph by considering the motion 
of each pendulum to be composed of two 
sinusoidal components at right angles. 
Each component has an amplitude (Al, 
A2, A3 and A4) and an angle of 
oscillation relative to some reference 
(Rl, R2, R3 and R4). In addition each 
pendulum has a frequency of oscillation 
(Fl and F2) . The relative motion of 
each pendulum is plotted on the screen 
giving a pattern similar to the so 
called 'Spirograph* patterns. The 
passage of time is simulated by 1% 
being incremented within the REPEAT 
UNTIL loop at lines 350 to 410. 






10 
20 

30 
40 
50 
60 
100 
110 



REM PROGRAM HARMONOGRAPH 

REM AUTHOR DAVID C. NICHOLS 

REM VERSION El. 3 

REM ELBUG AUG/SEPT 1984 

REM PROGRAM SUBJECT TO COPYRIGHT 



MODE 6:VDU23,1,0;0;0;0; 

COLOUR 129:COLOUR0 
120 PRINTTAB( 13, 12) "Please Wait." 
130 COLOUR 128:COLOURl 

140 C%=255:Q%=C%/4:X%=640:Y%=512:A=400 
150 DIM sin{C%) 
160 FORI%=0TGC% ► 
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170 sin(I%)=SIN(I%*2*PI/C%) 

180 NEXT 

190 MODE 4:VDU19, 0,4,0,0,0,0 

200 ON ERROR GOTO 440 

210 VDU 23,1,0;0;0;0; 

220 R1=RND(C%):R2=(R1+£%)M0CC% 

230 R3=RND(C%):R4=MR3+Q%)MODC% 

240 Al=RND(A):A2=RND(A) 

250 A3=RND(A):A4=RND(A) 

260 Fl =RND ( 1 ) * 7 : F2=RND { 1 ) * 9 : B% =RND (C% ) 

270 Xl=sin(Rl)*Al:X2=sin(R2)*A2 

280 X3=sin(R3)*A3:X4=sin(R4)*A4 

290 Yl=sin((Q%+Rl)MOCC%)*Al 

300 Y2=sin((Q%+R2)MOCCl)*A2 
310 Y3=sin((Q%+R3)MODC%)*A3 
320 Y4=sin((Q%+R4)MODC%)*A4 

330 M%=4 
340 I%=0 



350 REPEAT 

360 I%=I%+1 

370 Tl%=Fl*I%ANDC%:T2%=B%+F2*I%ANDC% 

380 T3%=Q%+T1%ANDC%:T4%=Q%+T2%ANCC% 

390 PLOTM%,Xl*sin(Tl%)+X2*sin(T3%)+X3 
*sin(T2%)+X4*sin(T4%)+X%,Yl*sin(Tl%)+Y2 
*sin(T3%)+Y3*sin(T2%)+Y4*sin(T4%)+Y% 

400 M%=5 

410 UNTIL FALSE 

420 END 

430 : 

440 IF ERR017 REPORT: PRINT" at line 

";ERL:END 

450 ON ERROR GOTO 190 
460 REPEAT UNTIL GET=32 
470 ON ERROR GOTO 440 
480 GOTO 350 




INTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 



DISABLING THE KEYBOARD 

It's possible to disable the keyboard completely with the command *FX201 ,1 . 
However, as you will no longer be able to give any commands, you must be prepared to 
press Break. *FX201,0 does the opposite and enables the keyboard, and as these 
commands can be used from within Basic, it's possible to stop the user of a program 
from interfering with a program until required to do so. 



ELBUG 



AUG/SEPT 1984 



Volume- 1 Issue 9 



EL BUG, 
P.O.Box 50 , 
St Albans, 



Dear ELBUG Reader, 

«" a ' M ""* m'nI «XT EDITOR 

'« ««"""" SuU »1». •VJL POT"" °° * 

at ELBUG, and you ton ning tne 

£5 »• ftC ° rn Basic Siting 

a printer. El ectron's own entered as 

The text editor -^Ues of text ^ easily ^ 

ass- - j-^yrssi. 

Urfes 1MB ^fro* the macMne. , R „• 

erase the address ^iftt^erd °* a ltt». 

_ m the text that i Qver the stand 

Simply type £ of a line. « y | ength As the ^ Y w . u tab 

f c^oss to tbe rigntsxd^^^^^^^^^^^^^^ 
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' " r~ {tbe Feturn key 

To save *«3 P^Tf't^itot^^^you 

chosen wi 1 lineS per pa9 e f ^ feed cna 

11 • 1^ If Y oU do ~f text nave 

after each Une ^^^^^^^^^^ 
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things are f of text tw tinu0 us r0i \- .iX a nurcber ot 

wiU pc int out 2U ^ a «£ . g ^facrf «* to 990. * 

the benefit ot ■ * ttfit head), P* in de letmg li*» rd count 

Sfit-a by the effect 

page count- ^ ^ store 3, ^ ^ 

S2S se of the way in ^^ras in =f ^pri^ - 

«"? t o avoid Basic «se ^ ^tcipherable on 

necessary to ^ ^us P ; sone thing ^^^ns) . 

abbreviations printout, and ate sto red 

PiU^OLDBox ° QOt (sl nce Basic 

numberless f . i 



„ f kpv Functions 
Tableof_Key_^ 



ffflilS address. 

, .«- line numbers. 
Printout w>*°f ine in n a*ers. 
printout with lin 
Indentation for start 

Knfto ^J^ es5 . 
rJfor^rt^a bian* Une. 

Runs the program. 



keys are set 



yours sincerely 
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10 REM PROGRAM MINI TEXT 


EDITOR 


27050 VDU28, 0,22, 79,0 


20 REM VERSION E0.2 03/07/84 


27052 PRINTTAB(2,18);"E L B U G Mini 


30 REM AUTHOR DAVID GRAHAM 


Text Editor" 


40 REM ELBUG AUG/SEPT. 


84 


27054 PRINT"with printout routine by la 


50 REM PROGRAM SUBJECT TO COPYRIGHT 


n Sinclair" 


60 : 




27060 PRINTTAB(0,22); 


100 GOTO 25000 




27070 PRINT"PRESS KEY Fl OR F2 TO START 


950 




(F2 PRINTS ADDRESS)" 


960 




27080 PRINT' "OR F4 OR F5 FOR PRINTOUT" 


970 




27090 PRINT'" ' 


980 




27200 ENDPRCC 


990 




31000 REM PRINTOUT WITHOUT NUMBERS 


1000 


ELBUG, 


31010 MODE3:PRim" ' ' 


1010 


P Box 5 


31020 PRINTTAB( 2) "Please choose continu 


0/ 




ation or new print- type line number or 


1020 


St. Alban 


zero.";:INPUT A$:L%=VAL(A$) :W%=0 


s, 




31022 VDU2:N%=(PAGE+1) 


1030 


Herts. 


31024 REPEAT 


25000 REM KEY SET ROUTINE 




31026 N%=N%+?(N%+2) 


25090 MODE3:*FX18 




31028 UNTIL? (N%+1) =10 


25100 *KEY0 RUN|M 




31029 J%=N%+2 


25110 *KEYl DELETE1 000,11 00 


IM AUTO1000, 


31030 REPEAT 


10 


M 


I 


31032 L%=L%+1 


25 


20 *KEY2 LIST1 000,1 099 |M 


AUTO1100,10 


31034 F0RM%=1T06 


|M 




31035 PRINTCHRS(l)" "; 


25140 *KEY4 GOTO31000|M 




31036 NEXT 


25150 *KEY5 VDU2 M LIST100, 


10000 M VDU3 


31037 FORK%= J%+1 TO N%+?J%-1 


1 M 

25160 *KEY6 " 




31040 PRINTCHR$(?K%); 




31042 IF ?K%=32 THEN W%=W%+1 


25170 *KEY7 MODE6 M 




31044 IF ?K%=13 VDU 10 


25180 *KEY8 " 




31050 NEXT 


11 




31052 IF L%>=31 THEN PRINTCHR$(1 2) :L%=0 


25190 *KEY9 "|M " 




31070 N%=N%+?J%:J%=N%+2 


25300 PROCWINDCW 




31080 UNTIL ?(N%+3)=244:VDU 3 


26999 END 




31090 PRINT" Lines of last page- ";L%" 


27000 DEF PROCWINDOW 




"Word total- "W% 


27010 SS="I"+STRING$(9,CHRS32) 


31100 END 


27030 PRINTTAB(8,23);:FORS= 
;:NEXT 


1T08: PRINTS? 


• 



HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 



REM STATEMENTS IN DATA STATEMENTS - B.Woods 

A RKM statement may be inserted at the beginning of a data line provided that 
DATA is followed by a comma and the line is RESTORE'd before use. Here is an 

example: 

10 REM staff DATA, NIGE, ALAN, DAVE,**** 

20 RESTORE 10 

30 REPEAT:READ name$:PRINT name$:UNTIL name$="****" 

40 END 
The REM may not otherwise be used on the same line as DATA. 



■v-v. l 1 



BREAK FROM WITHIN BASIC 

It's possible to invoke the same action that takes place when you press the Break 
key. It can be done by the instruction, CALL !-4, which when written in to a program 
will give a fast exit from a program and reset the computer all together. 
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KAYAK KAPERS 



By 'Surac' 



Kayak Kapers is a superb short game from 'Surac' 
novel and ingenious sideways scroll to animate the 
River El Yako as you struggle to avoid the rocks 
everlasting rapids. 



that features a 
motion of the 
and survive the 



Kayak Kapers is a fast action game 
in which you paddle your flimsy kayak 
canoe down the fast flowing River El 
Yako, which is strewn with a large 
number of rocks and boulders. Your task 
is to negotiate as far down stream as 
possible, whilst avoiding the rocks - 
to collide with them is fatal in such a 
fragile craft as yours! The river banks 
are equally hostile and will cause your 
immediate destruction if you hit them 
on your way. 

The program is delibertately short 
and demonstrates that good games don't 
have to involve lengthy programs. Of 
course, some features of the display 
have been kept quite simple (the canoe 



for example) but this is as much to 
ensure maximum speed as for any other 
reason . 

The game features three levels of 
play (1 being the easiest, and 3 the 
hardest), with the current level being 
selected at the start of each game. 
Your controls are 'A' to move the canoe 
up, and 'Z' to move it down the screen. 
Your current score is displayed at the 
top, and the latest high score at the 
bottom. Simple on screen prompts are 
displayed. The program uses a specially 
written machine code routine to provide 
the fast sideways scroll, and this has 
been shrunk down to the data statements 
at the end of the program. 



Because of the potentially destruc- 
tive nature of this routine, the 
program incorporates a simple error 
check, which will exit from the program 
if the data is wrong. If the data is at 
fault (indicated by the message 'Bad 
data'), carefully check the DATA 
statements at the end of the program. 
For extra security, it is advisable to 
save a copy of the program to tape 
prior to the running of the program. A 
number of the VDU statements contain 
some faijcly complex lists, and these 

peculiar effects 




% -1Jie ^jf^gram is based around a short 
and Sfif^what convoluted) machine code 
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routine which is called to scroll the 
screen for each cycle of the program. 
The routine only scrolls the middle 
section of the screen, and resides at 
&B00 onwards - note that this causes 
the function keys to contain some 
peculiar definitions. You could easily 
use this routine in some of your own 
programs. As presented, the routine 
does not scroll the whole screen, (the 
top and bottom 6 lines are left 
untouched). This could be altered, but 
this requires a knowledge of screen 
memory addresses, and it is beyond the 
scope of this article to cover these 
values. 

In order to incorporate the scroll 
routine into your own programs, you 
need lines 270 to 340 (the procedure to 
read in the data) and lines 860 to 960 
(the data itself) to be present in your 
program. Before you can use the scroll 
routine, you need to call PROCread. The 
scroll routine is then used by CALL 
scroll% from within Basic (for example, 
see the end of line 530) . 

10 REM PROGRAM ERAPIDS 

20 REM AUTHOR 'SURAC' 

30 REM VERSION E1.0 

40 REM ELBUG AUG/SEPT 1984 

50 REM PROGRAM SUBJECT TO COPYRIGHT 

60 : 

100 ON ERROR (OTO 980 

110 MODE 4:*FX18 

120 PROCchars 

130 PROCread 

140 PROCplay 

150 END 

160 : 

170 DEF PRCCchars 

180 VDU 23,240,192,240,252,255,255,25 

2,240,192 

190 VDU23, 241, 0,1 2, 62, 11 0,84, 120, 16,0 

200 VDU23, 242,0,48, 120,92, 11 6, 88,48,0 

210 VDU 23,243,0,56,92,60,116,88,32,0 

220 VDU 23,244,0,0,12,52,44,24,0,0 

230 VDU23, 245, 0,1 2, 62, 106, 126, 44, 16,0 

240 VDU 23,246,0,14,58,126,54,28,8,0 

250 ENDPROC 

260 : 

270 DEF PROCread 

280 RESTORE :scroll%=&B00 

290 FORI %=0TO10: READ A$:FORJ%=0TO7 
300 ?(scroll%+J%+I%*8)=EVAL("&"+MID$( 

A$,J%*2+1,2)) 

310 NEXT,:A%=0:FORI%=0TO88 
320 A%=A%+scroll%?I%;NEXT 



330 
:END 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 



IF A%<>&216F THEN PRINT"Bad data 1 



ENDPRCC 



DEF PROCplay 
H%=-1: REPEAT 



VDU 22,5:VDU23,i,0;0;0;0; 

VDU 19,0,4,0,0,0 

VDU 17, 129:VDU28, 0,4,19,0, 12 

VDU 28,0,31,19,27,12:VDU17,130 

VDU 28,1,3,18,1,12 

VDU 28,1,30,18,28,12 
440 VDU26,17,128 
450 PRINTTAB(4, 15) "LEVEL (1-3)'*; 
460 REPEAT T%=GET-48:UNTILT%>0ANDT%<4 
470 T%=T%-1:PRINTTAB(4,15)SPC12 
480 FORI%=0TO3:FORJ%=0TO3:SOUND1 ,-15, 
I%*10+10*J%,2:NEXT, 
490 S%=0:M%=6:N%=25:X%=15 
500 VDU17,1:VDU31,19,6,241:VDU31,19,2 

5,241 

510 PROCscore(0): REPEAT 

520 VDU17,128,17,2,31,2,X%,240 

530 PROCwallsrCALL scroll! 

540 F%=!(&5800+X%*320+32) 

550 IF INKEY-66 AND X%<>6 X%=X%-1 

560 IF INKEY-98 AND X%<>25 X%=X%+1 

570 PROCscore(l) :UNTILF% 

580 VDU17,128:VDU17,2 



590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 



VDU31,2,X%,240,17,130 r 17 r l,31,4,16 

PRINT"Press RETURN" 

*FX15 

SOUND0, -15,7,4 

REPEAT UNTILGET=13 

UNTIL FALSE 

ENDPRCC 

DEF PROCscore(A%) S%=S%+A% 
VDU17, 131,17, 0:IF S%>H% H%=S% 
PRINTTAB(2,2)"Score ";S% 
PRINTTAB(2,29)"High ";H% 
ENDPRCC 



DEF PROCwalls 

VDUl7,l:P%=RND(3)-2:Q%=RND(3)-2 

IF T%=1 AND RND(2)=1 P%=0:Q%=0 

IF M%+P%<6 P%=0 

IF N%+Q%>25 Q%=0 

IF N%+Q%-P%-M%<8 P%=0:Q%=0 

790 M%=M%+P%:N%=N%+Q% 

800 VDU31,19,M%,240+RND(6),31,19,N%,2 

40+RND(6) 

810 VDU31 ,19,M%+1 ,240+RND(6) ,31 ,19,N% 
-1,240+RND(6) 

820 VDU17,3:F0RI%=1T0T% 

830 IF RND(4-T%)=1 VDU31 ,19,RND(N%-M% 
-1)+M%,240+RND{6) 

840 NEXT: ENDPROC 

850 : 

860 DATA "78A95E8D110BA940" 
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BUILD A HOUSE 

By Nick Day 



This program will delight all those who enjoy seeing colourful and 
detailed pictures being generated by computer. We think these 
results will have particular appeal to younger children, who will 
watch with growing anticipation to see where the cat will finally 
appear . 



The program listed here runs in mode 
2 to provide the maximum number of 
colours. When you run the program, 
after saving it first safely to 
cassette, it will allow you to build up 
a detailed picture of a house and 
garden. Each time the space bar (or any 
other key) is pressed, the next part of 
the picture will be added to the 
existing display and the name of this 
feature will appear at the top of the 
screen . 

The last detail to complete the 
picture is a white cat which will 
randomly appear in one of several 
different places, to provide extra 
interest. 

Once the picture is complete, the 
whole scene is redrawn as it might 
appear at night with the moon shining 
down from above. A few further changes 
then take place to the picture before 
the final display is reached, but it 
would spoil your fun to describe them 
here. 

PROGRAM NOTES 

If you examine the program listing 
you will see that its layout is quite 
obvious, a sequence of instructions 
naming the next feature and calling a 





procedure to draw that part of the 
display. The procedure PROCsopr, which 
is called every time, in turn calls 
three further procedures to create a 
delay, produce a sound, and print the 
name of this part at the top of the 
display. 

The display makes use of many of the 
techniques which we have been 
describing in our series on Electron 
graphics, including both user defined 
characters and the drawing and plotting 
of lines and triangles. If you follow 
the program carefully you should be 
able to see how each feature is 
produced. The structure of the program 
also means that it is very easy for you 
to alter any of the display or add some 
additional features of your own. 

10 REM PROGRAM HOUSE 

20 REM VERSION E0.2 

30 REM AUTHOR N.DAY 

40 REM ELBUG AUG/SEP. 84 

50 REM PROGRAM SUBJECT TO COPYRIGHT 

60 : 

100 ON ERROR G7T0 1940 
110 M0DE2 

120 ENVEL0PE1 ,3, 0,0, 0,1,1,1 ,126, -4,0, 
-4,126,80 

130 VDU23,1,0;0;0;0;0;:*FX11,0 

140 *FX4,1 > 
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150 CLS:VDU24,100;50;1200;800;:VDU28, 

0,4,19,3:GCOL0,134:CLG:inc=0 

160 A$="grass": PROCsopr :PRCCdraw( 100, 

50,1200,150,2) 

170 A$="wall":PROCsopr:PROCdraw(200,l 

50,800,500,1) 

1 80 A$="br icks" : PRCCsopr : PROCbr icks 

190 A$="roof":PROCsopr:PROCroof 

200 A$="chimney-stacks" : PRCCsopr : PROC 

stacks (1) 

21 A$="chimney-pots" : PROCsopr : PRCCpo 

ts 

220 A$="doorway" : PROCsopr : PROCdoor (5) 
230 A$="windows" : PROCsopr : PROCwindows 

(5) 
240 A$="cur ta ins" : PRCCsopr : PROCdrapes 

250 A$="window-f rames" : PROCsopr : PROCf 

rames(7) 

260 A$="window-sills": PROCsopr :PRCCsi 

lls(250,350) :PROCsills(250,200) :PROCsil 

ls(450,350):PROCsills(650,350):PRCCsill 

s(650,200) 

270 A$="garage": PROCsopr :PRCCgaragero 

of { 1 , 0) : PROCgardoor (7) 

280 A$="door" : PROCsopr : PRCCdoor (7) 
290 A$="doorknobs" : PROCsopr : PROCknobs 
300 A$="letterbox" : PROCsopr : PROCletter 
31 A$="doorknocker " : PROCsopr : PROCkno 

ck 

320 A$="path":PR0Csopr:PRCCpaths(5) 

330 A$="drive": PROCsopr :PROCdrive (5) 

340 A$="f lowers": PRCCsopr 

350 F0Rf=lTO8:READa,b: PROCf lower (a, b) 

:NEXT 

360 DATA250,1 25, 325,100, 375,1 10,625,1 

00,675,110,750,120,1050,125,1150,100 
370 A$="car": PROCsopr :PRCCcar 
380 A$=" fence": PROCsopr: PROCf ence 
390 AS="birds": PROCsopr :PROCbirds 

400 A$="cat": PROCsopr :PROCcat 

41 now=TIME: REPEATUNTILTIME=now+l 000 

:CLS 

420 PR0Cnight:CLS:*FXl5,l 
430 TIME=0: REPEAT: PR0C1 ightsout : UNTIL 
FALSE 





440 
450 



END 



1000 DEFPROCdraw(a,b,c,d,e):GCOL0,e:MO 
VEa ,b :MOVEc ,b: PL0T85 ,a ,d : PLOT85,c ,d : END 
PROC 
1010 : 

1020 DEFPROCdrawN(a,b,c,d,e) :GCOL0,e:M 
OVEa , d : DRAWc , d : DRAWc , b : END PROC 
1030 : 

1040 DEFPROCdrawNu(a,b,c,d,e) :GCOL0,e: 
MOVEa ,d:DRAWa ,b: DRAWc ,b: ENDPROC 
1050 : 

DEFPROCwait 

*FX15,1 

REPEATUNTILGET=32 : ENDPROC 



1060 
1070 
1080 
1090 

1 100 



DEFPROCsound : inc= inc+4 : S0UND1 , 1 , ( 



97+inc),5:SOUND2,l,(113+inc),5:SOUND3,l 
,(125+inc) ,5:ENDPRCC 

1110 : 

1 1 20 DEFPROCpr int : 1%=LEN (A$) /2 : PRINTTA 
B (9-1%) A$:FORW=1TO500: NEXT: ENDPROC 

1130 : 

1140 DEFPRCC1 ightsout 

1150 IFTIME>200THENPROCdraw(253,200,35 
0,300,4) 

1160 IFTIME>400THENPROCdraw (650, 200,75 
0,300,4) 

1170 IFTIME>600THENPROCdraw(250,350,35 
0,450,4) 

1180 IFTIME>800THENPROCdraw(450,350,55 
0,450,4) 

1 1 90 IFTIME>1 000THENPRCCdraw(650, 350,7 
50,450,4) 

1200 ENDPRCC 

1210 : 

1220 

1230 

1240 

1250 : 

1260 DEFPRCCbricks:GCOL0,3:FORB=l 50TO4 
7 5STEP2 5 : MOVE200 ,B : DRAW8 00 , B : NEXT : FORB= 
250TO750STEP50 :MOVEB, 1 50 : DRAWB, 500 : NEXT 
; ENDPROC 



DEF PROCsopr 

PROCwa i t : PROCsound : PROCpr int 

ENDPROC 
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1270 : 

1280 DEFPROCroof:PROCdraw(250, 500,750, 
650,0) :PROCgables:ENDPROC 
1290 : 

1300 DEFPROCgables:MOVE750,500:MOVE750 
,650:PLOT85,850,500:MOVE250,650:MOVE250 
, 500 : PLOT85 , 1 50 , 500 : ENDPRCC 

1310 : 

1320 DEFPROCstacks (c) :PRCCdraw(250,600 

,350,700,c):PROGdraw(650,600,750,700,c) 
: ENDPRCC 

1330 : 

1340 DEFPROCpots:PROCdraw(270,700,290, 
750,0) :PROCdraw(31 0,700,330,750,0) :PROC 
draw(670, 700, 690, 750, 0) :PROCdraw(71 0,70 
0,730,750,0) :ENDPRCC 

1350 : 

1360 DEFPRCCwindows(c):PROCdraw(250,20 
0,350,300,c):PROCdraw(250,350,350,450,c 
):PRCCdraw(450,350,550,450,c):PROCdraw( 
650,200,750, 300, c) :PROCdraw (650, 350,750 
,450,c):ENDPROC 

1370 : 

1380 DEFPROCdrapes:PROCcurtains{250,45 
0) :PROCcur tains (450,450) :PROCcurtains (6 
50,450) :PROCcurtains(250, 300) :PROCcurta 
ins(650,300):ENDPROC 

1390 : 

1400 DEFPRCCcurtains(x,y) :PRCCdraw(x,y 
-100,x+25,y,4):PROCdraw(x+70,y-100,x+10 
0,y,4):ENDPROC 

1410 : 

1420 DEFPRQCframes(c) :GCOL0,c:MOVE250, 
450:DRAW350,450:DRAW350,350:DRAW250,350 
:DRAW250,450:MOVE300,450:DRAW300,350:MO 
VE250,400:DRAW350,400 

1 430 MOVE450 , 450 : DRAW550 , 450 : DRAW550 , 3 
50:DRAW450,350:DRAW450,450:MOVE450,400: 
DRAW550,400:MOVE500,350:DRAW500,450 

1440 MOVE650,450:DRAW750,450:DRAW750,3 
50:DRAW650,350:DRAW650,450:MOVE700,350: 
DRAW700,450:MOVE650,400:DRAW750,400 

1450 MOVE650,300:DRAW750,300:DRAW750,2 
00:DRAW650,200:DRAW650,300:MOVE650,250: 
DRAW750,250:MOVE700,200:DRAW700,300 

1460 MOVE250,300:DRAW350,300:DRAW350,2 
00:DRAW250,200:DRAW250,300:MOVE250,250: 
DRAW350,250:MOVE300,200:DRAW300,300:END 
PROC 

1470 : 

1480 DEFPRCCsills(x,y):PRCCdraw(x,y-10 
,x+100,y,7):ENDPROC 

1490 : 

1500 DEFPROCgarageroof (c,r) :PROCdraw(8 
00,340,1000,350,c):PROCdraw(990,150,100 
0,350,c) :MOVE800,400:MOVE800,350:O:OL0 / 
r :PLOT85, 1 000,350:ENDPROC 

1510 : 

1520 DEFPROCgardoor (c) :PROCdraw(800,l5 
0,990,340,c):ENDPRCC 



1530 : 

1540 DEFPRCCdoor (c) :PROCdraw(450, 150,5 
50,300,c):ENDPROC 
1550 : 

1560 DEFPROCknobs:aCOL0,0:PLOT69, 470,2 
20:PLOT69,900, 170: ENDPRCC 
1570 : 

1580 DEFPROCletter:PROCdraw{485,195,51 
5,200,0) :ENDPRCC 

1590 : 

1600 DEFPROCknock:PROCdraw(497,250,503 
,275,0) :ENDPROC 
1610 : 

1620 DEFPROCpaths(c):PRCCdraw(450,50,5 
50,150,c):PROCdraw(550,125,800,150,c):M 
OVE450,150:MOVE450,50:PLOT85,400,50:MOV 
E550,150:MOVE550,50:PLOT85,600,50:ENDPR 

oc 

1630 : 

1640 DEFPROCdrive(c):PRCCdraw(800,50,l 

000,150,c):MOVE800,150:MOVE800,50:PLOT8 

5,750,50:MOVE1000,150:MOVE1000,50:PLOT8 
5,1050,50:ENDPROC 
1650 : 

1660 DEFPROCf lower (x,y) :MOVEx,y:O:OL0, 

2:DRAWx,y+70:VDU23, 245, 0,0, 0,0, 16, 0,0,0 

:VDU23,246,16,84,56,238,56,84,16,0:VDU5 

:G3OL0,0:MOVEx-20,y+90:VDU245:VDU8:OCOL 

0,3:VDU246:<XOL0,0:MOVE500,600:VDU4:END 
PROC 

1670 : 

1680 DEFPROCcar:PROCdtaw (825, 100,850,1 
50,0) :PRO3draw(950, 100, 975, 150, 0):PROCd 
raw(800,150,1000,160,7):PRCCdraw(810,16 
0,990,240,4):PROCdraw(820,240,980,300,4 
) :PROCdraw(830, 250, 970, 290,0) 

1690 PROCdraw(81 6,1 60,824,200, l):PRCCd 
raw(980, 1 60,984 , 200, 1 ) : ENDPRCC 
1700 : 

1710 DEFPRCCfence:QCOL0,7:FORX=88TO120 

0STEP44:PROCdraw(X, 50, X+l 5,200,7) :NEXT: 

PROCdraw(100,160,1200,170,7):PROCdraw(l 

00,90,1200,100,7) :ENDPRCC 
1720 : 

1730 DEFPROCbirds:VDU4:VDU5:VDU23,240, 
0,0,40,84,146,0,0,0:VDU23,241,0,0,198,4 
0,16,0,0,0:G3OL0,0:MOVE800,750:VDU240:M 
OVE900,650:VDU240:MOVE1000,600:VDU241:M 

OVE1100,700:VDU240:MOVE600,600:VDU4:END 
PROC 
1740 : 

1750 DEFPROCcat:VDU4:VDU5:VDU23, 242,0, 
7,95,127,191,231,204,0:VDU23,243,0,192, 
224,248,244,242,228,1 36:GCOL0, 7: PROCpos 
:MOVEc,t:VDU242:VDU243:O2OL0,0:MOVE500, 
600 : ENDPRCC 

1760 : 

1 770 DEFPROCpos:p=RND(4) :c=500:t=600: I 
Fp=lTHENc=810:t=375 
1780 IFp=2THENc=250:t=725 
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1790 
1800 
1810 
1820 
1830 



IFp=3THENc=500:t=650 
ENDPRCC 



DEFPROCn ight : GCOL0 ,132: CLG 
PROCroof : PROCstacks (4 ) : PROCpots : P 
RCCdrawN (450 , 1 50, 550 , 300, 6) : PROCwindows 
(3):PROG3rapes:PROCgarageroof (0,0):PROC 
frames (4) 

1840 GCOL0,6:MOVE250,700:DRAW350,700:D 
RAW350,600:MOVE350,650:DRAW650 f 650:MOVE 
650 , 700 : DRAW750 , 700 : DRAW750 , 600 :MOVE750 
,650:DRAW850,500:MOVE800,500:DRAW800,15 
0:MOVE800,400:DRAW1005,350:DRAW1005,150 

1850 PROCdrawNu(240,190,350,310,6) :PRO 
CdrawNu(240,340,350,460,6):PROCdrawNu(6 
40,190,750,310,6):PROCdrawNu(440,340,55 
, 460 , 6) : PRCCdrawNu (640 , 340 , 750 , 460 , 6) 

1 860 FORX=88TOl 200STEP44 : PROCdrawN (X, 5 
0,X+15,200,6):NEXT:PROCdrawN(100,160,12 
00, 170, 6): PROCdrawN (100, 90, 1200, 100, 6) 



1870 VDU5:VDU23,248,0,112,24,12,12,12, 
24,1 1 2:VDU23, 249, 0,0, 0,0,1 6, 0,0,0:C£OL0 

, 7 :MOVEl 000, 750 : VDU248 :MOVEl 50 , 700 : VDU2 
49:MOVE400,750:VDU249:MOVE900,600:VDU24 
9:MOVE1000,650:VDU249:MOVE1150,640:VDU2 

49 
1880 VDU4:COLOUR0:ENDPROC 

1890 : 

1900 DEFPROClo:SPL$="":FORch=lTOLEN(SP 

$):IFMID$(SP$,ch,l)= M -"SPL$=SPL$+"-":GO 
TOl 920 



1910 
)+32) 

1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 



SPL$=SPL$-K:HR$(ASC(MID$(SP$,ch,l) 



NEXT:ENDPROC 

* 

ON ERROR OFF 

*FX4 

*FX12 

MODE 6: IF ERR=17 

REPORT: PRINT" at 

END 



END 

line ";ERL 



14 



870 DATA 
880 DATA 
890 DATA 
900 DATA 
910 DATA 
920 DATA 
930 DATA 
940 DATA 



II 



"8D100BA900A00F99" 

"0000881 0FA18AD10" 

"0B69408D100BAD11 

"0B69018D110BC979" 

"D0E1A279A95F8D42" 

"0B8D450BA9808D44" 

"0BA9908D410BA000" 

"B90000990000C8D0" 



950 
960 
970 
980 
990 

1000 
" ; ERL 

1010 



DATA "F7EE420BEE450BEC" 
DATA "450BD0EA58604446" 



ON ERROR OFF 

MODE 6 

IF ERROT7 

END 



REPORT: PRINT" at line 



POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG POSTBA 



SQUARE WAVES 
Dear Sir, 

After reading the article in the 

March issue of ELBUG about using BBC 
micro programs on the Electron, I 
experimented on my machine to see if 
the ADVAL statement had any effect and 
discovered some interesting results. I 
wrote this program to demonstrate these 
results graphically: 

10 MODE 

20 FOR X=0 TO 1279 

30 DRAW X,ADVAL(x)/100 

40 NEXT X 
This produced a very rough square wave 
pattern [very rough - Ed.]. Although 
I cannot explain these results, they 
seem to disprove the statement on page 

28 (table 1) of the article. 

Tim Stephenson 

Reply: 

We are not sure either of the 
reasons for these results. However, it 
should be noted that even on a BBC 



micro ADVAL is only valid with values 
from to 4, and using ADVAL in the way 
described produces similar effects on 
that machine. 

SCREEN FREEZER 

Dear Sir, 

Your "Screen Freezer" program (ELBUG 
issue 7) is excellent and I thought you 
would like to know that "Felix in the 
Factory" from Program Power freezes 
very well indeed. 

I enjoy your magazine tremendously 

(only wish it were longer). 

Tom Ede 

Reply: 

If other readers write to us we 

might publish a table of all the 

programs that you tell us can be 

•frozen' in this way. Regretfully 
perhaps, we have no plans at present to 

increase the number of pages in the 
magazine. 
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MONITORS FOR THE ELECTRON 



Reviewed by Sieve Fox 
and Hugh Brown-Smith 



In a previous article Steve Fox discussed some of the points to 
think about when choosing a TV or monitor to use with your Electron. 
This month Steve turns his attention to two of the cheaper colour 
monitors you might be tempted to consider buying, and gives you his 
expert opinion. Hugh Brown-Smith describes the rather more expensive 
Microvitec Cub. 



Grundig 'Super Colour' C2402 GB 
TV/Monitor supplied by Newark Video 
Centre, 108 London Road, Balderton, 
Newark Notts. NG24 3AQ. Price (to 
ELBUG members) £260 inc. VAT and 
carriage. 

Reviewer : Steve Fox. 

GRUNDIG "SUPER COLOUR" TV/MONITOR 

This 14" Portable TV Receiver is of 
German origin and is distributed in the 
U.K. by Grundig International of Rugby. 
It is very modern in design and incorp- 
orates infra-red remote control of 
channel selection, volume, brightness, 
colour, loud-speaker muting and reset. 
The receiver is able to store, while 
switched off, tuning data for up to 30 
channels, the same tuning buttons 
servicing all channels. A miniature 
jack is supplied to allow TV sound to 
be fed to an earpiece (or tape 
recorder, though the quality of 
recording is likely to be poor due to 
overloading) and a twin-rod V-aerial 
is fitted to the case (it may be 
unplugged if an external aerial is 
used) . The case of the receiver is 
black plastic incorporating a recess 
at the top for lifting: its weight is 
comparatively modest (about 251b) . A 
flap at the front gives access to the 
normal presets, including contrast. 
When the flap is closed it depresses a 
button which brings into action an 
automatic frequency correction device 
which prevents the receiver drifting 
off tune. 

A straightforward modification of 
the receiver is carried out {with the 
approval of Grundig) by certain dealers 
to enable direct RGB connection, via 
DIN plugs to the BBC micro or Electron. 
The receiver being reviewed was modi- 
fied by Newark Video Centre, 108 London 
Road, Balderton, Newark, Notts, NG24 



3AQ. The changeover from 
back is controlled by a 
back. 



TV to RCB and 
switch on the 



First impressions of the monitor, 
viewing a TV picture, were very favour- 
able. Definition was crisp, geometry 
good and the colours natural. I turned 
the colour control to the "off" end of 
the range and noted that the resulting 
black and white picture was neutral in 
tint. There wasn't any suggestion of 
coloured edges and the black level 
remained constant whether the scene was 
light or dark. I then tried the RGB 
mode. Computer-generated screens tend 
to be over-colourful and this effect 
can be quite objectionable on certain 

picture-tubes whose screen phosphors 
are of strident hue. The tube used by 
Grundig is excellent in this respect; 
the primary colours are strong but 
pure. 

The test programs described in the 
previous article confirmed these 
impressions. The white grille and dots 
pattern showed no coloured fringes and 
no perceptible geometrical distortions. 
The screen margins on this receiver are 
practically rectangular, only the 
extreme corners being rounded. The 
scanning was also correctly adjusted 
(whether by the factory or by Newark 
Video Centre) so that the entire 
picture was visible. With TV receivers, 
this job all too often has to be 
carried out by the purchaser, as the 
margins are often rounded and the 
factory usually sets the picture so 
that parts of it are lost at the top, 
bottom and edges. 



'colour bars' test program 
a generally smooth transmission 



The 

showed 

from one colour to another without any 
serious overshoot or undershoot, 
although the Grundig is not as good as 
the Microvitec Cub in this respect. 
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The 'small print 1 test showed that 
the Grundig is as tolerable for word 
processing as any other standard 
resolution colour monitor. Its 
excellent convergence (absence of 
coloured edges all over the screen 
area) helps a lot and provided the 
brightness and contrast are carefully 
adjusted I would think it usable for 
periods of up to, say, an hour without 
too much eye-strain. 



It is an excellent monitor in its 
class and I can recommend it as very 
good value. 

Electrohome ECMl 302-1 RCB Monitor 
supplied by Opus Supplies Ltd., 
158, Camber well Road, London SE5 0EE. 
Price £221.89 inc. VAT and carriage. 

Reviewer : Steve Fox. 



The EHT Regulation test is a severe 
one, and all monitors except very 
expensive professional ones must be 
expected to show geometric changes in 
the picture as the CRT beam current 
rises or falls. When the raster is 
white the current drain is at a maximum 
and the EHT is reduced. The Grundig 
shows a small increase in the raster 
size under these conditions, with a 
bowing inwards of the edges (pincushion 
distortion) , but the effect is not 
excessive nor abnormal. 

No interaction of the RF receiving 
circuitry was perceptible when in the 
RCB mode, but if TV is selected without 
switching off or disconnecting the 
micro, synchronizing problems appear. 

A minor but annoying quirk of the 
Grundig circuit is that if the monitor 
is switched on at the mains plug it 
goes into "standby" condition and does 
not display a picture (even in RGB) 
until a channel is selected with the 
remote controller. This does not happen 
if the receiver is switched in with its 
own on/off switch. 

The TV receiver as such is sens- 
itive and gives a good clean picture in 
good reception areas, although results 
using the 'V aerial provided will of 
course be unpredictable. My only crit- 
icism is that the AFC circuit mentioned 
in my first paragraph introduces a 
small but perceptible amount of noise 
(or "grain") into the TV picture and to 
avoid this the control flap has to be 
left open. 

Newark Video Centre sell this 
monitor (carriage paid) to ELBUG 
members at £260 - a discount of £15 on 
the normal price of £275. Other firms 
appear to charge more. 




ELECTROHOME ECM 1302 RGB MONITOR 

These monitors are manufactured for 
Electrohome Electronics, a Canadian 
firm, by the Japanese JVC company. They 
are imported into the UK by Cpus 
Supplies Limited who sell direct to 
the public. They are available in two 
forms: "medium" and "high" resolution. 
The main difference between the two is 
that the medium-resolution model uses a 
standard picture tube of the type used 
in domestic TVs whereas the high 
resolution version uses a screen of 
finer structure - although still not as 
fine as that used in more expensive 
monitors. 

The monitor is fitted with two 
inputs, one a subminiature "D" 
connector for the Tipple II, the other 
a 7-pin DIN connector. Connections on 
the latter require positive sync 
pulses. The BBC/Electron normally 
feeds negative syncs although a link 
can be changed over to reverse the 
polarity. However, C£us Supplies save 
you the trouble by supplying a hybrid 
lead which feeds negative syncs into 
the Apple input and the other signals 
into the DIN connector. This is an 
effective if slightly untidy solution 
to the problem. 
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The monitor case is two-tone 
plastic, pleasant and robust, and the 
only accessible controls are brightness 
and on/off. First impressions when I 
ran an arcade game on the "medium" 
(i.e. standard) monitor were of a good 
bright picture very suitable to the 
subject. 

However, when I ran the monitor 
tests, it became evident that all was 
not well. The white grille and dots 
showed coloured fringes at the edges 
of the picture and the vertical 
centering was incorrect. (^>us Supplies 
had kindly furnished me with service 
data, including a circuit diagram, so 
I removed the back of the set and 
found that the centering could be 
corrected (near enough) by changing a 
3-position link. But I was less 
successful in my efforts to reconverge 
the monitor and could not entirely 
eliminate the coloured fringes. The 
next problem was that the whites were 
pink. I corrected this to my 
satisfaction by adjusting the red and 
green channel-gain presets. 

When I ran the 'colour bar' test 
program signal I noticed a black band 
to the left of the green bar and a 
bright band to the right of it and 
other bars showed a similar but less 
marked effect. I looked at the circuit 
diagram but could find no trimming 
adjustments to correct this. 

The "fine print" test was of course 
marred by the colour fringes, although 
not so severely as to make the letter 
illegible. The monitor showed no 
excessive geometric changes when I ran 
the EHT regulation test. 

Viewing pictures on the screen, 
definition was subjectively good, being 
at times emphasized by the bright green 
lines. However, fine green lettering 
was quite difficult to read. 

Further enquiries have convinced me 
that the monitor reviewed was not 
exceptional and that its shortcomings 
are due to a pretty basic design rather 
than to sub-standard components. That 
said, as I have already indicated, the 
monitor's performance was capable of 
improvement by a qualified engineer, as 
some of the presets were not properly 
adjusted. 



At the inclusive price of £221.89, 
this monitor represents fair value for 
money, though the well known and 
impressive Microvitec costs only a 
little more. 

I have not checked the "high 
resolution" version, but as its design 
very closely resembles the other, I 
have no doubt that it suffers from the 
same problems. 

Microvitec Cub 1431 MS Colour Monitor 

Microvitec PLC., Futures Way, 

Boiling Road, Bradford, 

West Yorkshire, BD4 7TU. 

Price £238.85 inc. VAT and carriage. 

Reviewer : Hugh Brown-Smith 



MICROVITEC CUB 

The Microvitec Cub has become 
something of a standard for colour 
monitors used with the BBC. This is 
largely due to the volume of units 
supplied to educational establishments 
under the D.O.I, scheme. The fact that 
so many have been sold has perhaps 
biased many home users into choosing 
the Cub. So is this the best available, 
or should one consider other 
alternatives? 

The monitor itself looks very smart 
and robust, the case being made 
entirely of sheet metal finished in a 
two tone brown. The lack of a carrying 
handle could make it awkward to move 
the monitor and computer together, but 
this does not present a great problem. 
Strength and robustness seem to have 
been a theme of the design, giving the 
appearance of being able to withstand 
easily all but the most determined 
knock. The 14 inch screen occupies 
almost the whole of the front panel 
with a small indicator to the bottom 
right showing when the monitor is on. 

The only controls available outside 
the case are an on/off switch and 
contrast, both situated on the rear 
panel, but within easy reach if you 
want to make adjustments. The lack of a 
brightness control does not present any 
problems as the contrast will allow 
more than adequate adjustment over the 
appearance of the screen. The factory 
set condition of the internal controls 
seems to be accurate and the picture 
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position is good, although on the 
review model the picture was very 
slightly off centre. Also on the rear 
panel is the RGB input via a six pin 
Din plug. A lead is supplied with the 
monitor for use with BBC or Electron 
machines. 

Linearity of these monitors is 
excellent as is the colour definition. 
80 column definition is far better than 
a TV but lacking slightly in 
readability. This is due to slight 
fringing but without a 'High 
Resolution' tube such a monitor cannot 
be expected to produce an image 
suitable for long use without causing 
potential eyestrain. 

The main problem with the Microvitec 
is an annoying flicker which can be 
quite off-putting if the screen is 
viewed at close distances for prolonged 
periods. This seems inherent on all 
Cubs although some are better than 
others. If you decide to buy one, try 
to go to a dealer and see the 
particular one you are going to buy 
working first. The flicker is most 
apparent at the top of the screen 
although it is also present in the 
middle. 

The test programs published in ELBUG 
issue 7 were used to put the monitor 
through its paces, and the results are 
described below. 

The white bar and dot test revealed 
that the top corners of the screen were 
adjusted badly and set just out of 
view. This is not the case on all 
models so again it is worth seeing one 
first. 

The colours shown in the colour bar 
test were all of good definition and 
clarity. Triere was also no problem 
where two colours met. 

The 80 column text test suffered 
from slight fringing, as described 
above, but no more than would be 
expected and nothing to worry about. 



No problems were experienced with 
the EHT Regulation test. In fact the 
performance here was better than 
expected with only a very marginal 
distortion of geometry visible just in 
the centre of the outer edges. 

All in all the Microvitec represents 
very good value for money combined with 
a good reliable service. It seems quite 
rare for problems to occur, and because 
of the quantity in service it is not 
difficult to find someone to undertake 
repairs. 

[We have included on this month's 
magazine cassette a further test 
program called TVTEST, which displays a 
colour test card on the screen. This 
combines several of the features of the 
previous test programs, but it is a 
program which would be tedious to type 
in accurately from the keyboard. For 
this reason we are not printing the 
program in the magazine. - Ed.] 

MONOCHROME MONITORS 

In this review, all the monitors 
have been of the colour type. 
Monochrome monitors are also available 
which have the advantage of being of 
very high resolution and relatively 
cheap. Such monitors {for example those 
by Novex) are available in a number of 
different screen types from the black 
and white through green and black to 
amber and black. The purpose of these 
alternative colours is to relieve eye 
strain and the final choice would 
obviously be based on personal 
preference. 

If you are particularly interested 
in a monitor capable of displaying 80 
columns of text on the screen (for word 
processing for example) then a 
monochrome monitor may be a better 
choice and the different colours still 
appear as different shades of grey. You 
could still use your domestic TV if you 
wanted a colour picture for games. 
Prices range depending on make and 
resolution, but as a guide you could 
expect to pay £90 - £110 for a high 
resolution model. 



INTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 



MODE SELECTION ON BREAK 

*FX255,n selects the screen mode 
mode that you want with 8 added to it. 



when you press the Break key, where n is the 
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ELECTRON GRAPHICS (Part 9) 

bv Mike Williams 



In last month's article in this series we looked at some of the ways 
of manipulating the colours used in graphics displays on the 
Electron using the OZOL and VDU19 instructions. This month we shall 
concentrate solely on further uses of OZOL, and show how you can use 
this to produce a wide variety of shades in the different colours. 



First of all let's just look at the 
versions of GCOL as documented in the 
User Guide. The format of the OZOL 
instruction is: 

OZOL p,c 
where 'p' is a number indicating the 
plotting mode to be used, and 'c* is a 
number which specifies a colour (with 
1 28 added for a background colour) . 
Last month we concentrated on the case 
where p=3, known as Exclusive-OR 
plotting. This is particularly valuable 
when we want to produce a moving 
graphics display. We will now examine 
briefly each of the different plotting 
modes in turn. In the examples that 
follow the colours referred to will be 
the default colours (black, red, 

yellow, white) for a four colour mode 
(modes 1 and 5) . You should be able to 
work out yourself what the colours 
would be in the other graphics modes 
(0, 2, 4). 




We then set the logical colour to 2 



(yellow) , 
'1 OR 2 
(you can 
PRINT 
in Basic) 
white 
instead 



p=0: 



p=l: 



In this mode we simply plot the 
colour specified by OCOL regardless 
of any colours already on the 
screen. Thus <XOL0,1 will plot in 
red and <XOL0,2 will always plot in 
yellow. 

In this plotting mode it is the 
logical OR of the new colour and 
the previous screen colour which 
will be displayed. Type in the 
following program: 



but with OR plotting, 
has a logical value of 3 
verify this by typing 
1 OR 2 <return> 
This is why we get a 

line (logical colour 3) 

of a yellow one. 



10 


MODE 


5: 


: OZOL 0,1 








20 


PLOT 


5, 


,300,300 








30 


QCOL 


1, 


f 2: DUMMY=: 


[NKEY ( 


100) 




40 


PLOT 


5, 


f 0,0 










50 


END 














First 


of a. 


LI 


you 


will 


see 


a 


red 


line 


(i.e. 


colour 


1 as 


speci 


fied 


by 


the ( 


3C0L 


in 


line 


10), 


and then 


one 


second later 


you 


will get 


a white 



line, though one might at first 
sight expect a yellow one (colour 

2) . Initially each point on the 
line was at logical colour 1 (red) . 



p=2: This plotting mode uses the logical 
AND of the two colours. If we 
change line 30 above to read: 

30 <XOL2,2: DUMMY=INKEY(100) 
we can see the effect of this. 
Colour 1 (red) AND colour 2 
(yellow) gives colour (black) 
because M AND 2' has the logic 
value zero. You can again verify 
this as before (PRINT 1 AND 2) . 
Thus after one second is up the 
line disappears (changed to black, 
the same as the background) even 
though our specified foreground 
colour is yellow. 

p=3: This is Exclusive-OR plotting 
(abbreviated EOR) as described last 
month. You should be able to work 
out what happens if you change line 
30 to include OCOL3,2 (see end of 
article for the answer if you are 
not sure) . 
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p=4: This ignores the current colour 
setting completely and merely 
inverts the colour already 
present. Thus if you change line 30 
to use plotting mode 4 the red line 
will change to yellow because the 
inverse (logical NOT) of colour 1 
(red) is colour 2 (yellow). In 
binary, inverting a number changes 
1 to and to 1 throughout. 

QCOLMANIA 

The five plotting modes described 
above, with values from to 4, are the 
only ones described in the User Guide. 
Technically this number is stored as a 
single byte of memory and is thus 
potentially capable of taking any value 
from to 255. If you try this out you 
will find that it is possible to produce 
all sorts of exciting striped colours 
some of which when viewed from a 
distance appear as shades of the 
standard 16 colours (includes flashing 
colours of course) . The following 
program allows you to explore this new 
world quite easily, and to find some new 
effects that you can incorporate into 
your own programs. 

When you run the program you will be 
asked which graphics mode you want to 
use (0, 1, 2, 4, 5). The screen will 
then be divided up into rectangular 
areas depending on the number of colours 
available in each mode. Thus the two 
colour modes will display two 
rectangles, the four colour modes will 
show four, and mode 2 will display 16 
separate areas. Each rectangle 
represents one of the colours for that 
mode numbered from left to right and top 
to bottom. Thus in a four colour mode 
the top two squares are colours and 1 , 
and the bottom two squares are colours 2 
and 3. 

As listed the program sets the 
plotting mode to and displays all the 
colours possible in the selected 
graphics mode on the screen. Pressing 
the space bar (or any other key) will 
increase the plotting mode by 8 and 
re-display the colours in this new mode. 
Continuing to press the space bar will 
cycle through many of the different 
effects possible until the value of the 
plotting mode exceeds 255. 



Each screen display will also show 
the current plotting mode for further 
reference. Stepping through the plotting 
modes in steps of 8 should mean that all 
the effects are functionally equivalent 
to plotting mode 0, thus avoiding any 
further complications through the use of 
the logical operations already 
described. If you want to explore 
intermediate values then just change the 
step size in the program at line 1150. 

Next month's article will be the last 
article in this series, and will show 
you how to use GCOL and the VDU19 
instructions again, this time to produce 
some fast moving animation. 

[Exclusive-OR plotting gives colour 3 
(white) in the earlier example.) 



PROGRAM NOTES 

These notes are included for those 
who are interested in the details of the 
program. The main program, from line 10 
to 280, simply displays some information 
on the screen, and determines the 
graphics mode to be used before calling 
the procedure PR0Cdisplay2 at line 1130 
to produce the entire display. The main 
program also calls the procedure 
PROCinit, which sets up and initialises 
four arrays to specify the number of 
colours, and the number of display rows 

and columns for each mode. By storing 
this information it is very easy for the 
program to use the same routines 
subsequently to create the display, 
regardless of which graphics mode is 
chosen . 

The procedure PRCCdisplay2 is simply 
a loop which cycles through each GCOL 
plotting mode and calls a further 
procedure PROCdisplay to create the 
display itself. 

The procedure PROCdisplay in turn 
creates each rectangular area as a 
window which is then filled with a 
background colour using CLG (see part 5 
in this series for a more detailed 
description of this technique) . 



10 REM Program GCOLMANIA 

20 REM Version El.l 

30 REM Author Mike Williams 

40 REN ELBUG Aug/Sept 1984 

50 REM Program subject to copyright 
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60 : 
100 MODE 1 

110 ON ERROR MODE 6:PRCCerror:END 
120 PROCinit 
130 VDU19,2,6, 0,0,0 
140 REPEAT:CLS 

150 COLOURl:PRINTTAB(16,2)"GCOtWANIA" 
160 COLOUR2:PRINTTAB(19,6)"by" 
170 PRINTTAB(1 4,9) "Mike Williams" 

180 COLOUR3 

190 INPUTTAB(1 ,16) "Which mode to disp 

lay"; model 

200 UNTIL mode%<6 AND INSTR("01 245", S 

TR$(mode%)) 

210 MODE mode%:M%=-l 
VDU23,1,0;0;0;0; 
REPEAT:M%=M%+1: UNTIL mcde%(M%)=mo 



220 
230 
de% 
240 
250 



(M% 



x%=column%(M%) :y%=row* 
PRCCdisplay2(x%,y%) 
260 MODE 6 
270 END 
280 : 
1000 DEF PROCinit 
1010 LOCAL M% 

1020 DIM mode%(4),colours%(4) ,column% ( 
4),row%(4) 
1030 FOR M%=0 TO 4 

READ mode% (M%) , colours! (M%) ,colum 
,row%(M%) 

NEXT Ml 
DATA 0,2,2,1 



1040 

n%(M%] 

1050 

1060 



1070 DATA 1,4,2,2 
1080 DATA 2,16,4,4 
1090 DATA 4,2,2,1 
1100 DATA 5,4,2,2 
1110 ENDPRCC 

1120 : 

1130 DEF PROCdisplay2(x%,y%) 

1140 LOCAL gcol%,z% 

1150 FOR gcol%=0 TO 255 STEP 8 



PROCdisplay(gcol%,x%,y%) 

z%=GET 

NEXT gcol% 

ENDPROC 



1160 
1170 

1180 
1190 
1200 : 

1210 DEF PROCdisplay(g%,x%,y%) 
1220 LOCAL colour%,incx%,incy%,I%,J% 
1230 incx%=1280/x%:incy%=1024/y% 
1240 FOR J%=y%-1 TO STEP -1 
1250 FOR I%=0 TO x%-l 
1260 VDU24,I%*incx%;J%*incy%; (I%+1 ) *in 
cx%-l;(J%+l)*incy%-1; 
1270 colour%=y%*(y%-l-J%)+I% 



1280 
1290 
1300 

1310 
1320 

1330 

1340 

1350 



GCOL g%,colour%+128:CLG 
NEXT I%,J% 

PRINTTAB(6 / 2)"GCOL ";gcol%; 
ENDPRO: 



DEF PRCCerror 
ON ERROR OFF 
IF ERR017 THEN 

line ";ERL 

1360 ENDPRCC 



REPORT: PRINT" at 
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TOP LINE OF TEXT - D. Robinson 

If you have difficulty reading the top line of text on your television then you 
can define a text window to stop the Electron using the top line. This command is 
slightly different for each mode to compensate for the different screen heights e.g. 

MODE 6:VDU 28,0,24,39,1 

MODE 5:VDU 28,0,31,19,1 ^ 



SHADED LETTERING FOR TITLES - W.R. Powers 

To make your titling in programs more 
which starts at line 100 (the rest is just to 



attractive try the 
demonstrate it) . 



following procedure 



10 MODE 1: COLOUR 2 

20 PRCCshade("Elbug for the Electron", 260, 800) 

30: 
100 DEF PRCCshade(AS,X,Y) 

110 VDU5 

120 VDU19,0,5,0,0;:VDU19,1,0;0; 
130 GCOLl,3:MOVEX,Y:PRINT AS 
140 GCOLl,l:MOVEX-8,Y-8:PRINT AS 

150 ENDPRCC 
This uses VDU5 to print text at the graphics cursor, printing the letters 

second time offset by 8 graphics units. 
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More Games Reviewed 



Name 


A 
t 


Cylon 


Attack 


Supplier 


■ 


A & F 


Software 


Price 


* 
• 


£7.90 




Reviewer 


9 
* 


David 


Fell 



Rating 



**** 




This game invol- 
ves you leaving the 
sanctity of your 
mothership to ward 
off a variety of 
alien space ships, 
all of whom are 
intent upon destroy- 
ing your space 
craft. The screen 
provides you with a 
view from the 

cockpit of your 
space ship, and you 
are provided with 
an indication of your fuel, shield and 
laser status. At the top of the screen 
is a similar display for your 
mothership, showing how many fuel 
refills there are left, and how many 
more hits can be taken on the 
mothership (hits are only taken on the 
mothership when you dock with it, and 
refuel) . 

The game features some attractively 
designed shapes, and presents a well 
'graded' game. The first round is quite 
easy, and a little patience will allow 
you to finish this round quite easily. 
The later rounds, however, are 
amazingly difficult, and require some 
very subtle game play to master. The 
high score table provided allows for 50 
scores, and can be saved and loaded 
from tape when necessary. There is an 
option to select from either tvro key 
layouts, or joysticks, and details of a 
high score competition are given with 
the packaging. 



Title: 


SNOOKER 


Supplier: 


Visions 


Price: 


£7.95 


Reviewer: 


Mike Williams 


Rating: 


* 



untrained eye, the quality of play 
available in this version of the game 
is poor. The balls move in a most 
unrealistic way, often appearing to 
stop dead as though a bunker has 
suddenly materialised on the green of 
the snooker table, 
while some of the 
angles and rebounds 
would drive a 
professional deme- 
nted. 



Colourful this 
game may be, but 
realistic it defin- 
itely is not. This 
is a pity because 
the game of snooker 
really ought to 
computer simulation. Despite 
apparent popularity of this 
judging by the charts of best sellers 
(presumably this reflects the 

popularity of snooker itself) , this is 
definitely not a game I want to play 
again, and I suspect many others would 
feel the same about this offering from 
Visions. 




vWvKWKiS':*:*: 


; vX vlv >!■ I*M'MvX-X-> "■' 


x/rvrvMvXvX-x-: 


Title 


: Stranded 




Supplier 


: Super ior 


Software 


Price 


: £7.95 




Reviewer 


: Peter Lowes 


Rating 


: * 




'Stranded' is 


a verv 



r«vvv 



I would not claim much expertise in 
the practice of snooker, but even to my 



smal 1 and 
simple adventure by any standard. It 
took about an hour and a half to solve 
and it was only necessary to run 
through the plot twice. 

The instructions consist of a brief 
description of the mission, which is to 
find your way home from an alien world 
on which you have been stranded. After 
that you are on your own. 

The game runs in mode 1 , giving a 
neat and colourful display. The top 
half of the screen is devoted to a 
picture of the current location, and 
the bottom half to a text window giving 
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the usual information in the briefest 
possible way. Most of the locations 
have a picture to go with them. 
However, there are far too many areas 
of the game, such as the maze of long 
twisty corridors, which are all alike 
and use the same picture, even if the 
exits are in different directions. The 
graphics are simple, clear and 
effective, but they give no clues, and 
remain unchanged when things happen. 
This means that they don't really 
contribute anything to the game which 
is a pity, considering how much memory 
is needed for them. 

The adventure itself is pitifully 
small, containing only seven objects. 
The few so called problems are either 
very old or very obvious. Also the 
locations connect together in a very 
unrealistic manner. For example, exits 
from several locations take you to the 
place you you have just left. This 
makes the game seem bigger than it 
really is. 

It could be argued that this game is 
aimed at young children or novice 
adventurers, but the lack of proper 
instructions and the very small range 
of commands to which the computer will 
respond would only frustrate a 
beginner. For example, you can PUSH a 
button but not PRESS one. 

Too much has been sacrificed for the 
sake of the pretty pictures and not 
even every location has one. There are 
not yet many adventure games available 
for the Electron, as many of those 
written for the BBC micro used mode 7. 
However one comparable game is Twin 
Kingdom Valley from Bug Byte. This is 
much bigger, more logical, and has a 
picture to go with every location. 



'Stranded' does 
facility which I 



a game save 
anyone will 



have 
doubt 

need. It records a mere nine bytes, 
which just about sums up the game's 
complexity (and appeal). 



Title : 
Suppl ier : 
Price : 
Reviewer: 
Rating 



Daredevil Dennis 

Visions Software 

£7.95 

Alan R. Webster 



. **** 




Dennis is a rather active stuntman, 
whose aim in life is to make as much 
money from the movies as possible. Each 
stunt he performs earns him big money, 
but there are several risks that have 
to be taken. 

There are three different scenes. 
The first requires Dennis to ride a 
motorbike, leaping over houses and 
engaging in other dangerous pursuits. 
Among the stunts in the second scene, 
he has to jump a light-house with a 
wetbike, and in the third, his stunts 
are all performed on skis. 

The game has smooth, fast graphics 
and uses over thirty multicoloured 
'sprite' characters. The cassette inlay 
card claims that the program has an 
interrupt driven sound routine, but 
this was missing on our copy. There are 
also six skill levels to choose from, 
and each level has six intermediate 
levels, making thirty-six in all. 

Overall, this is a very pleasant 
game with a lot of originality and 
provides quite a challenge at the 
harder stages. 



MORE NEW ADD-ONS FOR THE ELECTRON 

First Byte Computers, who have already produced a joystick interface 



for the 
Electron (reviewed in ELBUG issue 7) , have now brought out a similarly packaged 
printer interface price £34.95 inclusive, available from W.H.Smith and all good 
computer dealers, or direct from First Byte Computers, 10 Main Centre, Derby. 

A company called Slogger Ltd have launched a ROMBOX for the Electron at £35.00 
inclusive. This unit allows you to plug in up to eight ROMs or EPROMs. Contact 
Slogger Ltd, 215 Beacon Road, Chatham, Kent ME5 7BU. _ 
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DEBUGGING PROGRAMS (Part 2) 

by Mike 'Williams 



We conclude the two part article that we started last month, by 
looking at some further errors that can be introduced when typing in 
programs at the keyboard. Many of these potential sources of error 
can occur both in programs that you have typed in from magazine 
listings and in programs that you develop and write yourself. 



This month we shall be looking at 
some of the errors that are likely to 
arise when a program uses arrays. The 
most obvious indication of these errors 
is the display of an error message with 
the word "array" or "subscript" in it. 
Many of the programs published in ELBUG 
make use of arrays, so we had better 
begin by looking at arrays and how they 
are used. 

DEFINING AND USING ARRAYS 

An array is a collection or list of 
items that it is useful to treat in a 
common way. Just as variables can be 
used to store numbers or strings of 
characters, so also can arrays (or 
lists) . All the items in an array must 
be of the same type; you cannot mix 
numbers and characters together. Each 
array is given its own unique name, and 
only the use of a subscript 
distinguishes between the different 
items in the array. What is a subscript 

you nay well ask? Well it's a number 
which is used to differentiate between 
the various items by pointing to, or 
indicating, the position of an item in 
the array. Each item in an array is 
often referred to as an 'element' of 
that array. 

Vfe will look at a simple example to 
explain matters further. Let's assume 
that we have an array A( ), and that it 
has eleven elements to 10 inclusive. 
That gives us the elements: 

A<0), A(l), A(2), A(3), A(4), A(5) 
A(6), A(7), A(8), A(9), A(10) 
In each case the number enclosed in the 
brackets is the subscript. Notice too, 
that in our example the first element 
is in position (and not 1 as you 
might have expected). This is just 
typical of computing, where the first 
item of anything is often taken as 
(even some computing books have 
numbered their first chapter 0) . You 
can always use an array starting at 1 



if you wish, though this is a little 
wasteful as we shall see very shortly. 

Before you can use any array in a 
program, you have to tell the computer 

how many elements it is going to have, 
or rather, what the maximum subscript 
is going to be. In our previous 
example, the maximum subscript is 10, 
though the number of elements is 11 . 
The DIM statement (short for dimension) 
is used for this purpose, and you 
simply enter a line as 

DIM A(10) 
in order to set up an array with 
maximum subscript of 10, before you use 
it. What this does is to allow the 
computer to set aside a block of memory 

for this purpose. Even if you only use 
5 elements of the array in the program, 
the memory for all 11 will have been 
allocated. The computer always assumes 
that the first element will be the 
one, which is why it is a little more 
economical to use elements to 9, for 
example, rather than 1 to 10. In most 
cases however, the extra memory used 
by starting at element 1 will be 
negligible and have no adverse effect 
on the running of the program. 

Once our array has been 
dimensioned, with the elements going up 
to a maximum of 10, we cannot then use 
a subscript larger than 10 (or increase 
the size of the array later). If you do 
try to use element 11 say, the corrputer 
will tell you that you can't in the 
only way it knows how, with an error 
message: 

"Subscript at line " 

with an appropriate line number of 
course'. 

If the idea of arrays is new to you, 
then the following short orogram should 
help to clarify what ^e have been 
doing. In this program, an array called 
•FRED' is defined, and the value of 
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each of its elements (in fact 0) is 
then printed out. There is a deliberate 
mistake in the program though. When you 
type it in, see if you can spot this 
before continuing to read further. 



is 



10 DIM FRED (12) 
20 FOR I%=1 TO 13 
30 PRINT "Value 
,..";FRED(I%) 
40 NEXT 1% 



of element ";!%;" 



The array consists of 13 elements, 
but numbered from to 12. Thus when 
the FOR-NEXT loop tries to print out 
the value of the 13th element in line 
30 it produces the error message 
"Subscript at line 30". Notice too that 
the subscript in line 30 is written as 
a variable (1%). Arrays are very often 
found in FOR-NEXT loops where we want 
to carry out the same process on each 
element (here to print the value of 
each one) . 

One small but important point to 
note about arrays is that the process 
of dimensioning an array automatically 
causes the value of each element to be 
set to zero (or to a null or empty 
character string if it is a string 
array) . You do not have to assign 
values to arrays before you can use 
them, unlike the situation with 
ordinary variables (the "No such 
variable..." error message that we 
dealt with last month) . 

CHECKING ARRAY ERRORS 

If the subscript of an element is 
given as a variable, or even as a more 
complex expression, it can be quite 
difficult to check what is going wrong. 
If the "Subscript...." error message 
does appear, try listing first the line 
which the computer says is in error, 
and then in immediate mode print the 
values of any subscripts in that line. 
In our simple example above, this would 
mean listing line 30 (LIST 30) and then 
printing the value of 1% (PRINT 1%) . 
This at least allows you to check if 
the subscript really is larger than it 
should be. Note too, that a subscript 
cannot be less than zero, so a negative 
subscript is always wrong. 

Incidentally, if a subscript ever 
has a value which is not a whole 
number (or integer) , then the computer 



just truncates the value. Thus 
FRED(0.99) would be treated as FRED(0). 
Of course this shouldn't occur 
(subscripts are whole numbers by 
definition) , but it is worth knowing 
what will happen if it does. 

In practice, the "Subscript..." 
error message can be caused by all 
sorts of errors. If it should happen to 
you, then check very carefully that 
each array in the program is correctly 
dimensioned, and that you haven't made 
a mistake in the spelling of the name 
of the array, either where it is 
dimensioned, or wherever it is used. If 
you do get the name of an array wrong 
in a dimension statement, the the error 
message will be "Array at line...." 
rather than the "Subscript..." message 
already described. This is because it 
appears to the computer that you have 
not dimensioned the array which you are 
now using. 

This error can also appear rather 
unexpectedly on some occasions. For 
example, one problem that can sometimes 
arise is in the mis-spelling of one of 
the built in Basic function names. 
Suppose you typed SIM(angle), instead 
of the correct SIN (angle), using the 
SIN function. You would then get the 
"Array..." error message because the 
computer thinks you are trying to use 
an array called SIM which hasn't been 
dimensioned. The computer can't read 
your mind to see what you really meant. 

MORE PROBLEMS WITH SPACES 



Last month we talked about some of 
the problems that can arise through the 
mishandling of spaces in a program. A 
further example of this occurs with 
arrays, and also with functions like 
SIN used above. You should NEVER leave 
a space between the name of an array or 
function and the following bracket. If 
this should happen by accident then the 
"No such variable..." error message may 
result. 

TWO DIMENSIONAL ARRAYS 

Up to now all our references have 
been to what are known as "one 
dimensional arrays", that is arrays 
which we can think of as a simple list 
of items. However, it is just as 
feasible to use two dimensional arrays, 
and these are best thought of as tables 
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with both rows and columns. For 
example, we might have a program which 
uses an array dimensioned as 
SALARY {5,1 2) which is used to store 
monthly salaries for each of five 
years. The array now has two 
subscripts, one indicating the year and 
one the month. Thus the element 
SALARY(2,6) would be the salary for the 
6th month (June) in the second year. 

Although such two dimensional arrays 
are likely to appear more complicated 
when used in programs, particularly 
when the subscripts are not just simple 
numbers but are variables or 
expressions, the same problems are 
likely to arise as already described, 
and the advice given then is just as 
applicable. 



Debugging programs is rather like 
trying to solve a mystery story or 'Who 
Dunnit'. The clues you need are all 
there if you only know where to look 
and what to look for. Just as with 
fictional tales, all is not what it 
seems and and you may find several red 
herrings on the way. Above all else, 
remain cool, calm and collected, and 
work logically and methodically. Use 
the power of the computer itself to 
help you as much as possible along the 
way by printing the values of variables 
and subscripts etc. as described above. 

This completes this two part article 
on debugging, but it is an important 
topic and one which we shall no doubt 
return to again in due course. 



HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 



ROUNDING DECIMALS - D.Gibson 

To round a decimal to the nearest integer, obtain the integer of the number after 
adding 0.5 to it. Thus X%=INT(X+0.5) turns X into the nearest integer (whereas 
INT(X) would simply round X down) . Similarly, X!=(INT(X*10+0.5) )/10 rounds to the 
nearest decimal place, and X%= (INT(X*4+0.5) )/4 rounds X to the nearest quarter. 



MODE CHANGE BY VDU C OMMAND - J.Forshaw 

mode from within a procedure, use the VDU22,n command where n 
mode that you want. Basic will not normally allow you to use 
within a procedure function. 



To change display 
is the number of the 
the MODE instruction 



■V-Vi 



v.-.v.\ 






CAPS UXK POKE - G.Edwards 

You can can poke to a location in 
Electron. ?&25A=&20 sets 'Caps Lock" 
the *FX202 commamd from last month's 



memory to control the 'Caps Lock* mode of the 
on and ?&25A=&30 switches it off. (Don't forget 
hints for a more official way to do this) . 



SPOOLING GRAPHICS - N.Kelly 

Opening a spooled file before beginning a graphics program will save whatever is 
generated on to tape for playing back again another time. Type *SPO0L followed by 
the name of the file to be created and then run any program you wish that draws on 
the screen (you could include the *SPOOL instruction in the program). A file full of 
the characters that are sent to the screen will be created on tape (if you're using 
your cassette recorder). At the end of the program type *SPO0L to complete the 
saving operation. You can now run the graphics creation sequence through again 
without running the program simply by typing *EXEC followed by the file name of the 
file that you have just created. A 
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DARTBOARD 

Bv J. Crombie 



Have you ever wondered how top dart players such as Eric Bristow and 
Jocky Wilson reach the heights of perfection when they play? Well f 
ELBUG provides one answer, would you believe, with a program that 
will help you play better than ever before, and maybe score that 
fabulous one hundred and eighty! 



Dartboard is a game for two players 
(though you can easily take both parts 
if you wish) using either the keyboard 
or joysticks (if you have an Acorn 
Plus-1 or similar joystick expansion 
fitted) to control your aim. If you 
choose to use joysticks then you may 
still use the keyboard for fine 
adjustments. 

This is the traditional game of 
darts where each player takes turns to 
throw three darts to reduce his score 
down from the starting value of 501, 
finishing on a double or a 'Bulls-eye'. 

You may use either a joystick or the 
keyboard (selected at the start of the 
match) to aim a dart. Then press a 
number key (1 to 9) to throw the dart. 
Select the relative strength of the 




throw by the size of the 
being the weakest and 9 
strongest. 



number , 1 
being the 



The keys 
are ' Z ' and 
'*' and 



for controlling direction 
'X' for left and right, and 
?' for up and down. 



As you throw your darts the computer 
will automatically count up the total 
of your three throws and display your 
score at the right-hand side of the 
screen . 

When a game has finished you can 
choose either to play another game by 
pressing the spacebar or see the result 
of the match displayed on the screen by 
pressing the Return key. 

PROGRAM NOTES 

The program is quite well structured 
using a number of clearly named 
procedures to do most of the work. 
These procedures are listed below with 
a brief description of the function of 
each. 



1000 


PROCboard 


Draws dartboard on 
screen. 




1180 


PROCsector 


Draws one sector 
of the dartboard. 




1270 


PROQnove sight 


Moves target point 
for dart using 
joystick or 
keyboard . 




1490 


PROCdart 


Throws dart. 




1590 


PRCCtotal 


Calculates dart 
score . 




1730 


PROCremovedarts 


Removes darts from 
board. 




1810 


PROCendgame 


Displays match 
result. 




1910 


PROCkeyorjoy 


Displays front 
page and selects 
joystick or 
keyboard control . 




2040 


PROCinit 


Initialise sound 
envelopes, user- 
defined characters 
and variables. 





The main program loop is from line 
180 to 310 which is repeated until one 
player is the winner. 
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10 REM PROGRAM DARTS 
20 REM AUTHOR J.Crombie 
30 REM VERSION E0.1 
40 REM ELBUG AUG/SEP. 1984 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 
100 ON ERROR GOTO 2080 
110 MODEl:PROCkeyorjoy 
120 CLS:VDU5:DIM SCORE%(20) ,SUM(2) ,DX 
%<3),DY%(3),game%(2) 
130 PRCCinit 
140 PROCboard 
150 REPEAT 

160 COLOUR0:PRINT"PLR1 PLR2 501 50 
1" 

170 COLOUR3:VDU28,30,31,39,4 
180 REPEAT 

190 TIME=0:Player%=Player%+l 
200 IF Player%=3 Player%=l 
210 sum%=0:dart%=l 
220 REPEAT 
230 winner%=FALSE 
240 PROCmovesight(dart%) 
250 IF SUM(Player%)=sum% AND double%= 
1 THEN winner%=TRUE:GOTO310 

260 IF SUM(Player%)-sum%<2 THEN VDU4: 

PRINTTAB (6* (Player%-1 ) +1 ) ; " " ; : VDU5 

:PROCremovedarts(dart%) :UNTIL winner%=F 
ALSE:GOTO310 

270 dart%=dart%+l 

280 UNTIL datt%>3 

290 PROCremovedarts(3) 

300 SUM ( Player %)=SUM(Player%)-sum%:VD 
U4 : PRINTTAB (6* (Player%-1)+1); SUM (Player 
%) ;SPC(2);:VDU5 

310 UNTIL winnec% 

320 VDU4:SOUNDl,-15,50,10:SOUNDl,-15, 

100,5:SOUNDl,-15,200,5:PRIbrT" WIN 

NER Player"; Player! ' " :game% 

(Player%) =game% (Player!) +1 

330 PRINT" PRESS KEY " 

340 A=GET:IF A=l 3 PROCendgame:END 

350 IF dart%=4 THEN PROCremovedarts(3 
) ELSE PROCremovedarts(dartl) 

360VDU28,30,31,39,4,12:Player%=2:SUM 
(1)=501:SUM(2)=501 

370 VmiL FALSE 

380 END 

390 : 

1000 DEF PROCboard 
1010 F0RI%=1 TO 20 
1020 PRCCsector(I%, 3, 500,500, 406) 
1030 PROCsector(I%,3*(I% MOD 2), 500, 50 
0,400) 

1040 PROCsector(I%,3*(ABS((I% MOD 2)-l 
)), 500, 500, 365) 

1050 PRCCsector(I%,3*(I% MOD 2), 500, 50 
0,225) 

1060 PRCCsector(I%,3*(ABS((I% MOD 2)-l 
)), 500, 500, 200) 



1070 NEXT 

1080 FOR I%=1 TO 20:PROCsector(I%,0,50 
0,500, 40) :PROCsector(I%, 1,500, 500,1 5) :N 
EXT 

1090 FOR I%=1 TO 20 

1100 MOVE450*SIN(RAD(18*I%-16))+471,440 
*COS (RAD ( 1 8*I%-1 6) ) +500:READ AS: PRINTA$ 

1110 GCOL0,2:MOVE430+I%, 1000+1%: PRINT" 
DARTS" :GCOL0,1 

1120 NEXT 

1130 GCOL0, 0:MOVE430+I%, 1000+1%: PRINT" 
DARTS" 

1140 RESTORE:FOR I%=1 TO 20:READ SCORE 
%(I%):NEXT 

1150 VDU4,28,30,31,39,0,19,2,4,0,0,0:C 
OLOUR130:CLS 

1160 ENDPROC 

1170 : 

1180 DEFPROCsector(N%,C%,X%,Y%,S%) 

1190 OCOL0,C% 

1200 MOVEX%,Y% 

1210 MOVE S%*SIN(RAD(18*(N%-l)-9))+X%, 

S%*COS (RAD ( 1 8* (N%-1 ) -9) ) +Y% 

1 220 PLOT85 , S%*S IN (RAD ( 1 8*N%-9) ) +X% , S% 
*COS (RAD(1 8*N%-9) ) +Y% 

1230 ENDPROC 

1240 : 

1250 DATA 20,1,18,4,13,6,10,15,2,17,3, 
19,7,16,8,11,14,9,12,5 

1260 : 

1270 DEFPROCmovesight(dartno%) 

1280 VDU5:F%=0 

1290 C%=A%:D%=B% 

1300 IF kb% GOTO 1350 

1310 IF ADVAL(2*(Player%-l)+l)>50000 A 
%=A%-8 

1320 IF ADVAL (2* (Player%-1) +2)<8000 B% 
=B%-8 

1330 IF ADVAL (2* (Player%-1) +1)<8000 A% 
=A%+8 

1340 IF ADVAL(2*(Player%-l)+2)>50000 B 
%=B%+8 

1350 IF INKEY-98 A%=Al-8 

1360 IF INKEY-67 A%=A%+8 

1370 IF INKEY-73 B%=B%+8 

1380 IF INKEY-105 BI=B%-8 

1390 IF A%<0 A%=0 ELSE IF A%>900 A%=900 

1400 IF B%<0 B%=0 ELSE IF B%>900 B%=900 

1410 IF TIME>300 GOTO 1440 

1420 *FX15,1 

1430 GOTO1450 

1440 KEY%=INKEY(0):IF KEY%>48 AND KEY% 
<58 THEN C£OL3,2:MOVEC%,D%:VDU224:PROCd 
art (A%,B%,dartno%) : ENDPROC 

1450 OCOL3,2:IF F%=1 M0VEC%,D%:VDU224 
1460 F%=l:MOVEA%,B%:VDU224 

1470 GOTO1290 

1480 : 

1490 DEFPROCdart(X%,Y%,dartno) 

1500 OCOL3,1 ► 
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1 51 X%=X%+1 6+RND(32* (KEY%-&30) ) -8* (KE 
YI-&30) : Y%=Y%-1 2+RND (32* (KEYI-&30) ) -8* ( 
KEY%-&30)-12*(&3A-KEY%) 

1520 MOVEX%-20,Y%-20:DRAWX%+20,Y%+20 



1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 



MOVEX%-20,Y%+20:DRAWX%+20,Y%-20 
DX% (dartno) =X%:DY% (dartno) =Y% 
SOUND0, -15,5,1 
PROCtotal(X%,Y%) 
ENDPRCC 



DEFPROCtotal (X%,Y%) 
IFY%=500 Y%=499 

ANGLE%=DEGATN ( (Xl-500) / (Y%-500) ) : 
radius%=SQR ( (X%-500) "2+ (Y%-500) "2) 

1620 IF Y%-500<0 THEN ANGLE%=ANGLE%+1 8 
ELSE IF ANGLE%<-9 THEN ANGLE%=ANGLE%+ 
360 

1630 SEC%=(ANGLE%+9)/18 

1 640 DARTSCORE%=SCORE% (SECI+1 ) :double% 
=0 

1650 IF radius%<406 AND radius%>365 TH 
EN DARTSC0RE%=DARTSC0RE%*2 :double%=l 

1660 IF radius%>200 AND tadius%<225 TH 
EN DARTSCORE%=DARTSCORE%*3 

1670 IF radius%>14 AND radius$<40 THEN 

DARTSCORE%=25 

1680 IF radius%<15 THEN DARTSCORE%=50 : 
double%=1 

1690 IF radius%>406 THEN DARTSCORE%=0 

1700 sum%=sum%+DARTSCORE% 

1710 ENDPROC 

1720 : 

1730 DEF PROCremovedarts(dartno%) 

1740 GC0L3,1 

1750 F0RI%=1 TO dartno% 

1 760 MOVEDX% (1%) -20,DY% (1%) -20:DRAWDX% 
(I%)+20,DY%{I%)+20 

1770 MOVEDX%(I%)-20,DY%(I%)+20:DRAWDX% 
(I%)+20,DY%(I%)-20 

1780 NEXT 

1790 ENDPROC 

1800 : 

1810 DEFPROCendgame 



1820 VDU22,1 

1 830 COLOUR1 : PRINTTAB (1 5,4) ; "DARTS" 

1840 SOUND1,-15,10,5:SOUND1,-15,50,5:S 
OUND1,-15,25,10 

1850 COLOUR2: PRINTTAB (5, 12);' 'Player 1 
has won ";game%(l);" games" 

1860 COLOUR2:PRINTTAB(5,14);"Player 2 
has won ";game% (2) ;" games" 

1870 COLOUR! z IF game% (1 )=game% (2) THEN 

PRINTTAB(1,20);"I therefore declare th 
e contest a draw"" : ENDPROC 

1880 PRINTTAB(1 ,20) ;"I therefore declar 
e the winner ";:IF game% (1 )>game% (2) THE 
N PRINT"Player 1" ELSE PRINT"Player 2" 

1890 ENDPROC 

1900 : 

1910 DEFPROCkeyorjoy 

1920 VDU23;1,0;0;0;0; 

1 930 COLOUR1 : PRINTTAB (1 2, 3) "Dartboard" 

1940 COLOUR2: PRINTTAB (11, 6) "by J.Cromb 



ii 



le 

1950 COLOUR3:PRINTTAB(9,12)"Are you 
aying" 1 'TAB(10) "from Keyboard" 

1960 PRINTTAB (12) "or Joystick" 

1970 REPEAT:VDU7 

1980 COLOUR2:PRINTTAB(15,17)"?"; 



Pi 



1990 
2000 
2010 
2020 
2030 
2040 
2050 



G$=GETS : PRINTTAB ( 1 9 , 1 7) GS 

UNTIL GS="K" OR G$="J" 

IF G$="K" kb%=TRUE ELSE kb%=FALSE 

ENDPROC 



DEFPROCinit 

VDU23,224,8,8,8,255,8,8,8,8:A%=50 
0:B%=500:SUM(l)=501:SUM(2)=501:(3%=0:Pla 
yer%=2:game% (1 ) =0:game% (2) =0 

2060 ENDPROC 

2070 : 

2080 ON ERROR OFF 

2090 MODE 6 

2100 IF ERR=17 END 

2110 REPORT: PRINT" at line ";ERL 

2120 END 



POINTS ARISING 



SOUND ENVELOPE EDITOR 

In the update to the Sound Envelope Editor that we published 
ELBUG, an inexplicable error crept in. The NEXTF% contained 
redundant and should be omitted if you use this correction. 
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737 FLIGHT SIMULATOR 

In our review of the 737 Flight Simulator by Salamander Software we obviously 
got carried away by the excellence of the display when we referred to the 
accompanying engine noise. In fact, the Electron version of this simulation does not 
have this feature. Our apologies if we inadvertantly misled anyone over this. 
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BACK ISSUES (Members only) 



All back issues will be kept in print 
(from November 1983). Send 90p per 
issue PLUS an A5 SAE to the 
subscriptions address. Back copies of 
BEEBUG are available to ELBUG members 
at this same price. This offer is for 
members only, so it is ESSENTIAL to 
quote your membership number with your 
order. Please note that the advertising 
supplements are not supplied with back 
issues. 

Subscription and Software Address 



BACK ISSUES AND SUBSCRIPTIONS 



ELBUG 
PO BOX 109 
High Wycombe 
Bucks 



SUBSCRIPTIONS 

Send all applications for membership, 
and subscription queries to the 
subscriptions address. 

MEMBERSHIP COSTS: 



:-.-;. 






£5.90 for 6 months 


i (5 


issues) 


E9.90 for 1 year 


(10 


issues) 


Eire and Europe 




Membership £16 for 


one 


year. 


Middle East 


£19 




Americas and Africa 


£21 


Elsewhere £23 




Payments in Sterling 


i preferred. 


SOFTWARE (Members only) 







This is available from the software 
address. 



MAGAZINE CONTRIBUTIONS 
AND TECHNICAL QUERIES 

Please send all contributions and 
technical queries to the editorial 
address opposite. All contributions 
published in the magazine will be paid 
for at the rate of £25 per page. 

■ 

We will also pay £10 for the best Hint 
or Tip that we publish, and £5 to the 
next best. Please send all editorial 
to the editorial address 
If you require a reply it is 
to quote your membership 



Editorial Address 



ELBUG 
PO Box 50 
St Albans 

Herts 



material 

opposite. 

essential 

number and enclose an SAE. 



ELBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Editor: Mike Williams. 

Production Editor: Phyllida Vanstone. 

Technical Assistants David Fell, Nigel Harris and Alan Webster. 

Managing Editor: Lee Calcraft. 

Thanks are due to Sheridan Williams, and Adrian Calcraft for assistance with this 

issue. 

All rights reserved. No part of this publication may be reproduced without prior 
written permission of the Publisher. The Publisher cannot accept any responsibility, 
whatsoever, for errors in articles, programs, or advertisements published. Itie 
opinions expressed on the pages of this journal are those of the authors and do not 
necessarily represent those of the Publisher, BEEBUG Publications 
Limited. BEEBUG Publications LTD (c) 1984. 
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New Ettrag Binders 

We have produced an attractive 
hard-backed binder for the 
ELBUG magazine. These 
binders are green in colour 
with "ELBUG" in gold lettering 
on the spine and allow for the 
whole of one volume of the 
magazine to be stored as a 
single reference book. 

Each binder will accommodate 
10 ELBUG magazines, and is 
supplied with 12 wires to 
enable the index and the latest 
copy of the supplement to be 
included within the binder if 
required. Individual issues may- 
be easily added and removed, 
allowing for the latest volume 
to be filed as it arrives. 

The price of the new ELBUG binder is £3.90 including VAT, 

please add 50p post and packing for delivery within the U.K. 

Overseas members please send the same amount, this will 

cover the extra postage but not VAT. 

Plesesendto: 

BEEBUGOFT, PO BOX 109, High Wycombe, Bucks, HP 10 8HQ 




THE BEST OF ELBUG ON CASSETTE 

Many of the best programs published in ELBUG have been collected together and 
published by Penguin Books under the name "Games and other programs for the Acorn 
Electron" at £3.95. This book is part of the Penguin Acorn Computer Library and at 
present there is just one other title available though others are planned. 

There are 20 programs in all in four different categories: 
Action Games 

Munch-Man Mars Lander Invasion 

Robot Attack Hedgehog 



Games 

for the Atom 



Thought games 

Higher/Lower Five-Dice , Life 
Anagrams Return of the Diamond 

Visual Displays 

Union Jack Square Dance Ellipto 
Screenplay 3-D Rotation 

Utilities 

Sound Wizard Bad Program Lister 

3-D Lettering Bad Program Rescue 

Double" Height Text 



ELECTRON 
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All 20 programs are now available on cassette from our software address (in High 
Wycombe) price £7 to members and £9 to non-members, plus 50p post & packing in 
either case. 
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